Application.CountA(ActiveSheet.Range(“1:1”)) 只能统计一列(行)的实际使用情况,得到的不一定是最后一行(列)的位置。方法2的数值比此方法大时,说明在A列的数据间有空白未填写的单元格。 方法6: ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)a = Target.Cells.Address If b <> "" Then MsgBox b Else MsgBox a End If b = a End Sub 可以实现你所说的所有方式，取得上一次的位置。
Cells(i, 1) = myfileName '提取文件名 Workbooks.Open (directory & myfileName) '从关闭的Excel文件中提取数据（或工作表名称）没有简单的方法。因此，我们打开Excel文件 For Each mysheet In Workbooks(myfileName).Worksheets '将Excel文件的所有工作表名称添加到第i行的其他列中。ThisWorkbook.Worksheets(7)...
Temp3 = Temp & Cells(R, C).Address(, , xlR1C1) arr(R, C) = Application.ExecuteExcel4Macro(Temp3) Next Next Range("A1").Resize(RCount, CCount).Value = arr End Sub 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. ...
2、使用Cells属性 使用Cells属性返回一个Range对象,如下面的代码所示。 1.Sub Cell() 2.Dim icell As Integer 3.For icell = 1 To 100 4.Sheet2.Cells(icell,1).Value = icell 5.Next 6.End Sub 复制代码 代码解析: Cell过程使用For...Next语句为工作表中的A1:A100单元格区域填入序号。Cells属性指...
Function GetInformation(fieldName As String) Dim lastRow As Integer Dim lastCol As Integer Dim ws As Worksheet Dim arr() Set ws = ThisWorkbook.Sheets("Settings") ws.Activate With ws lastRow = .UsedRange.Rows.Count lastCol = .UsedRange.Columns.Count arr = .Range(Cells(1, 1), Cells(last...
Cells(Target.Row, i) = myLookup(strRow, strCol, arr) NextEnd Sub 3、在工作表Sheet1里,自定义过程refreshDAta,更新数据: Private Sub refreshData() Dim ws As Worksheet, lastRow As Integer, lastCol As Integer, firstCol As Integer Dim arr(), temp(), rng As Range Dim strRow As String,...
方式二：使用Range("a1").CurrentRegion.Rows.Count和Range("a1").CurrentRegion.Columns.Count，但要求a1单元格旁不能有空白列。方式三：利用Range("a65536").End(xlUp).Row和Range("IV1").End(xlToLeft).Column，这种方法适用于查找最后一个非空单元格。方式四：ActiveSheet.Cells.SpecialCells(...
首先要知道行号、列号是已知还是未知的,知道行号、列号确定单元格以后,用CELLS就可以了,把下面的代码复制到VBA里面执行就看出来了: 1 2 3 4 5 6 Sub tt() Dim a, b As Integer a = InputBox("请输入行号") b = InputBox("请输入列号") Cells(a, b).Select End Sub 这上面就是单元格选定。 本...
Cells(行,列)单元格行列取值 编辑代码 编辑完代码后保存文件,会弹出提示,我们必须把文件另存为xlsm格式文件,否者编写的代码无法保存。 回到excel画面,点击按钮就会计算出A1+A2的结果,结果放在C1单元格中。 编辑按钮文字 -> 右键单击按钮选第四项“编辑文字”(也可以拖动按钮位置) ...