在循环语句内使用的话，很容易出错，因为其值不会变化， 所以要放到循环语句前，取得最后一行的值， 另外，使用Range("a1").End(xlDown).Row如果A列第一行下面全为空， 则得到表的最后一行65536，容易出错， 建议使用Range("a65536").End(xlUp)....

Sheet1.Range("A" & Rows.Count).End(xlUp).Row r1=表1最后一行的行数 For i = 2 To r1 循环 2 至 表1最后一行的行数 If Sheet2.Range("A:A")...

Sheet2.Range.End(xiUp).Row 返回Sheet2的某个Range最上方的最后一个被使用的单元格的行号，比如： Sheet2.Range("A65536").End(xiUp).Row 将返回Sheet2的A列的最下方的已使用的单元格的行号 注意: 如果最下方的单元格曾经被使用过，不管其数据...

我都没验证，大致看看： 第一个： a=[ A65536 ].End(xlUp).Row Sheets(Data).Range("A3: A" & a ).Copy 第二个： range("A3: A" & [A65536].End(xlUp).Row ).Select

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy ....

先将其拆分:Sheet1.Range("b65536").End(3).Row是求表1的[b65536]向上查找第一个有数据的单元格行数,也就是B列最后一个有数据的单元格。sheet1指工作表...

.Count).ClearContents For i = 2 To Sheets(1).Range("a65536").End(xlUp).Row For j = 2 To Sheets(2).Range("a65536").End(xlUp).Row n = ...

Sheet2.Range.End(xiUp).Row 返回Sheet2的某个Range最上方的最后一个被使用的单元格的行号，比如： Sheet2.Range("A65536").End(xiUp).Row 将返回Sheet2的A列的最下方的已使用的单元格的行号 注意: 如果最下方的单元格曾经被使用过，不管其数据...

" & Sheets(i).Range("A60000") _ .End(xlUp).Row).Copy Range("A" & Range("A60000").End(xlUp).Row + 1) Range("A1").Select Next: End Sub...

Ls = .UsedRange.Columns.Countarr = .Range("a" & R1).Resize(Rs, Ls)Range("a65536").End(xlUp).Offset(1).Resize(Rs, Ls) = arrEnd WithNext...