Excel 在具有动态最后一行VBA的列中复制并粘贴特定单元格范围
我试图复制并通过我的一张工作表A列中的每一个单元格(从A1开始),然后将其粘贴到同一张工作表中2k+行的下一个单元格。每次都将用于新的数据集,所以我不确定如何使范围的末尾动态Excel 在具有动态最后一行VBA的列中复制并粘贴特定单元格范围,excel,vba,Excel,Vba,我试图复制并通过我的一张工作表A列中的每一个单元格(从A1开始),然后将其粘贴到同一张工作表中2k+行的下一个单元格。每次都将用于新的数据集,所以我不确定如何使范围的末尾动态 谢谢这里有很多例子 Sub FindingLastRow() 'PURPOSE: Different ways to find the last row number of a range 'SOURCE: www.TheSpreadsheetGuru.com Dim sht As Worksheet Dim LastR
谢谢这里有很多例子
Sub FindingLastRow()
'PURPOSE: Different ways to find the last row number of a range
'SOURCE: www.TheSpreadsheetGuru.com
Dim sht As Worksheet
Dim LastRow As Long
Set sht = ActiveSheet
'Using Find Function (Provided by Bob Ulmas)
LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
'Using SpecialCells Function
LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row
'Ctrl + Shift + End
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
'Using UsedRange
sht.UsedRange 'Refresh UsedRange
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
'Using Table Range
LastRow = sht.ListObjects("Table1").Range.Rows.Count
'Using Named Range
LastRow = sht.Range("MyNamedRange").Rows.Count
'Ctrl + Shift + Down (Range should be first cell in data set)
LastRow = sht.Range("A1").CurrentRegion.Rows.Count
End Sub