摘要：
推荐使用插件易用宝，和方方格子（收费），当然代码熟练的可以自己敲代码。这只是我使用过的插件，做个记录 阅读全文
摘要：
Sub hb() Dim bt, i, r, c, n, first As Long bt = 1 '表头行数，多行改为对应数值 Cells.Clear For i = 1 To Sheets.Count If Sheets(i).Name <> ActiveSheet.Name Then If f 阅读全文
摘要：
'左移函数 Function LShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "JScript" LShift = sc.Eval(Value & "<<" & Shi 阅读全文
摘要：
一个快捷操作，对单列数据进行转换时，这个方法操作很简单，选中要转换的一列，按ALT+D，出现如下的提示 然后按E，出现如下的分列对话框 最后，按F，就可以完成了，熟练后1秒就完成操作了，边上的人最多就是看到你屏幕闪了一下，然后发现文本变成数值了，这是利用了分列功能默认的“列数据格式”为”常规“的特性 阅读全文