随笔分类 -  VBA

摘要：案例一 Public Sub Test2(ByRef table As String) Sheets(table).Select Columns("H:H").Select End Sub '选中表 sheet1 H列 Sub cc() Test2 ("sheet1") End Sub 案例二 名字 阅读全文

摘要：1单元格 1).Cells(a , b); 2).Range("a1"); 2.区域 1)Range("B2:J2"); 2)Range(Cells(i, 1), Cells(i, 5)); 3)Rows(a) eg.Rows(3),Columns(4) 4)Rows(a&":"&b) eg. Ro 阅读全文

摘要：1.当前Sheet1工作表的A1单元格最后一行、最后一列 a = Worksheets("Sheet1").Range("a65535").End(xlUp).Row b = Worksheets("Sheet1").Range("a1").End(xlToRight).Column 2.当前B1单 阅读全文