vba：选择行失败，复制行是主要任务

Question

我无法通过简单的任务将一行复制到另一张偏移为一列的工作表中。

一个简单的

With ThisWorkbook.Sheets("CSVImport")
    .Rows(1).Copy Destination:=ThisWorkbook.Sheets(strAccount).Cells(2, 1)

失败，因为大小不匹配。 我假设整个行都被选中

如果我仅选择测试所需的零件

With ThisWorkbook.Sheets("CSVImport")
    .Range(.Cells(1, 1), .Cells(1, maxColumn)).Select

我得到错误选择无法完成，错误1004。

我只想将A1：C1复制到B1：D1。

Answer 1

斯科特的评论可能确定了问题所在。 我敢打赌，在您这样做时maxColumn为零。 要填充它，您应该使用类似：

With ThisWorkbook.Sheets("CSVImport")
    maxColumn = .Columns.Count
    .Range(.Cells(1, 1), .Cells(1, maxColumn)).Select
End With

但是 ，这不能解决根本的问题，即您不能复制整行并将其粘贴到第2列中（如您所说，“偏移一列”）。 它根本不合适。 但是话又说回来，那不是您的代码试图做的。 Cells（2，1）引用第 2 行第 1 列 ； 1行而不是1列的偏移量。 您发布的代码：

With ThisWorkbook.Sheets("CSVImport")
    .Rows(1).Copy Destination:=ThisWorkbook.Sheets(strAccount).Cells(2, 1)

实际对我有用... 只要使用有效的工作表名称填充变量strAccount。

我认为退后一步，看看您真正想在这里做什么可能是个好主意。 目标是偏移1列还是偏移1行。 如果偏移量为1列，则只需要复制包含数据的列，而不是整个行。

Answer 2

我现在通过使用此代码解决了

Dim target As Worksheet
Set target = ThisWorkbook.Sheets("1904097928")
Dim from As Worksheet
Set from = ThisWorkbook.Sheets("CSVImport")

With ThisWorkbook.Sheets("CSVImport")
    Dim maxColumn As Integer
    maxColumn = Helper.lastColumn(from)
    .Range(.Cells(1, 1), .Cells(1, maxColumn)).Copy Destination:=target.Cells(1, 2)
End With

其中lastColumn计算为

Function lastColumn(sheet As Worksheet) As Integer
    lastColumn = sheet.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
End Function