Excel 将多个工作簿工作表合并到目标工作表中

使用MSExcel2007，我注意到在代码中，我注意到在运行时，目标的第一行总是空的。为什么呢？谢谢

而不是

Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

你可以用这样的东西

Dim LastUsedCell As Range
Set LastUsedCell = Range("A" & Rows.Count).End(xlUp)

If IsEmpty(LastUsedCell) Then
    LastUsedCell.PasteSpecial
Else
    LastUsedCell.Offset(1, 0).PasteSpecial
End If

从空工作表上的第1行开始。

而不是

Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

你可以用这样的东西

Dim LastUsedCell As Range
Set LastUsedCell = Range("A" & Rows.Count).End(xlUp)

If IsEmpty(LastUsedCell) Then
    LastUsedCell.PasteSpecial
Else
    LastUsedCell.Offset(1, 0).PasteSpecial
End If

---

从空页上的行1开始。

< P>请考虑此选项。

---

如果有其他问题，请退回。

请考虑此选项。

---

如果您还有其他问题，请发回。

请在问题中发布代码，因为链接可能会断开。由于这一行：

范围（“A65536”）。结束（xlUp）。偏移量（1，0）。粘贴特殊

。它在A列中查找最后使用的行，然后向下移动一行，这是第一个空行（除了一种情况：当整个工作表为空时，它将失败）。我还想指出，该链接中的代码非常不正确。Corker:在示例中，它使用

.xlsx

文件，但使用

范围（“A65536”）。End（xlUp）

而不是

范围（“A”&Rows.Count）.End（xlUp）

@SteveES，我应该更准确地包含我的代码。你提供的链接非常好。谢谢，请在您的问题中发布代码，因为链接可能会断开。因为这一行：

Range（“A65536”）.End（xlUp）.Offset（1，0）.PasteSpecial

。它在A列中查找最后使用的行，然后向下移动一行，这是第一个空行（除了一种情况：当整个工作表为空时，它将失败）。我还想指出，该链接中的代码非常不正确。Corker:在示例中，它使用

.xlsx

文件，但使用

范围（“A65536”）。End（xlUp）

而不是

范围（“A”&Rows.Count）.End（xlUp）

@SteveES，我应该更准确地包含我的代码。你提供的链接非常好。谢谢你的回答。我试试看。谢谢你的回答。我试试看，谢谢。我对理解问题中引用的代码的问题更感兴趣。谢谢。我更感兴趣的是理解问题中引用的代码的问题。