我正在嘗試將變數名 firstRng 存盤到
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
Range("A"& lMaxRows 1).Select
代替“A”
這是我嘗試過的
Dim entireRange As Range
Dim firstRng As Range
Dim secondRng As Range
Set entireRange = Range("A2:C2")
Set secondRng = Range("B2")
Set firstRng = range("A:A")
entireRange.Select
secondRng.Activate
Selection.Copy
lMaxRows = Cells(Rows.Count, firstRng).End(xlUp).Row
Range(firstRng & lMaxRows 1).Select
ActiveSheet.Paste
它會在 1maxRows“型別不匹配”上出錯
uj5u.com熱心網友回復：
firstRng是一個多單元格Range。您正在隱式地使用它的.Value，而不是使用相關的屬性，例如它的.Column。
您還應該避免Activate和Select：
lMaxRows = Cells(Rows.Count, firstRng.Column).End(xlUp).Row
entireRange.Copy Destination:= firstRng.Cells(lMaxRows 1)
或者
entireRange.Copy Destination:= Cells(lMaxRows 1, firstRng.Column)
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/358948.html
下一篇：vba介面類