Function getLastRow()
Debug.Print "End(xlUp):" & Sheets(1).[A65536].End(xlUp).Row
Debug.Print "usedRange:" & ActiveSheet.UsedRange.Rows.Count
Debug.Print "find
总有些奇葩，不经任何学习，就使用excel文件，他们经常用不断敲空格的方式来换行，给后续编辑造成极大困扰。
这里给出
vba
模板，把当前表示换行的多个空格替换为单个换行符。一次运行，会处理sheet所有的单元格
中
的多余空格。
如果需要针对
选中
区域的进行替换，请留言，改天再传。
求出A列
最后
1行：Cells(Rows.Count, 1).End(3).Row
"Cells(Rows.Count, 1)"表示是查找A列
最后
一个非空单元格，按列的可以改成"Cells(1, Columns.count)"
"end(3)"表示的向上查找，也可以写成“end(xlup)”,还有其他3个方向，向下，向左，向右：xldown,xltoleft,xltoright
我们都知道, 一个表格里有很多个单元格. 由前面可知,我们要往一个单元格里写入数据,首先就要获得这个单元格的引用. 这样程序才知道在哪里写入数据．
比如我们要往单元格 A1 写入数据, 可以用 range("A1") ,来表示单元格A1 . 那么如果我们要表示多个单元格该用什么语句呢?
1, 比如我们有如下的表格．我们要在每行的单元格里写上美元两个字
我们知道，range(
新建一个sheet，把表头和第二行先复制黏贴过来，然后从第三行开始遍历，每复制黏贴
一行
后再往下延N行，直至把原表数据完全复制完毕
1、辅助函数
Sub create_sheet(i As String)
' 宏3 宏
On Error GoTo 999
Sheets("新sheet").Select
Cells.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
