参考元:【VBA】UsedRangeの範囲から最終行など取得【UsedRange.Rows.Countなど】 https://daitaideit.com/vba-usedrange/ ポイントとなるVBAコード With ActiveSheet.UsedRange .Select '使用しているセル範囲 '行 .Rows(1).Select '1行目 .Rows(.Rows.Count).Select '最終行 MsgBox .Rows(.Rows.Count)...
vba 求最后非空数据所在列(行)的单元格的address在一个usedrange中,如第2行的最后一个非空单元格所在的列最大,在第10列,则msgbox:第2行,第10列,并把activerange定位到该单元格。如第5列的最下边一个非空单元格所在的行最大,在第12行,则msgbox:第12行,第5列,并把activerange定位到该单元格。
既然是使用 UsedRange，但又想排除第一行，那就需要知道总行数和总列数，然后自己再重新定义复制区域即可。比如：Sub test()Dim LastRow As Long, LastCol As Integer With Sheet1 LastRow = .UsedRange.Rows.Count LastCol = .UsedRange.Columns.Count .Range(.Cells(2, 1), .Cells(LastRow, L...