1:Excel表中数据的行列数
Sheets(1).UsedRange.Rows.Count Sheets(1).UsedRange.Columns.Count
或者,
Sheets(1).Range("A65536").End(xlUp).Row Sheets(1).Range("A65536").End(xlUp).Column
需要说明的一点是,之前在给朋友Mac(苹果系统)上的Excel VBA编程时,用上面的代码会报错,只能采用下面那种写法;
2:拷贝
行拷贝:
‘ 将表1中第n行,拷贝到表2中第一行,从"A1"(1可以换成其他行数,A是必须从第一列开始)开始 Sheets(1).Rows(n).Copy Sheets(2).Range("A1")
时间: 2024-10-14 10:48:00