我有一个字符串数组，我想使用xlDown作为新行插入到工作表的末尾。
我试过了 Range("A1:A" & UBound(strArr) + 1) = WorksheetFunction.Transpose(strArr)
但这会将其复制到列而不是最低行。
感谢您的帮助。
您需要Resize将Range设置为数组的大小（需要修改Column尺寸）。由于数组从0开始，而Column从1开始，我们加1，因此语法为：Range("A" & LastRow + 1).Resize(, UBound(strArr) + 1).Value。
其次，LastRow找到包含数据的最后一行（在A列中），因此我们+1将结果写在下一个空行（下面的1行）上。
请尝试以下代码：
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row '<-- get last row in Column A
Range("A" & LastRow + 1).Resize(, UBound(strArr) + 1).Value = WorksheetFunction.Transpose(WorksheetFunction.Transpose(strArr))
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句