Question

所以我试图在一个“主”表和多个“子”表之间进行复杂的数据传输。今天是我使用Excel VBA的第一天，所以我很丢失哈哈。我决定从小片段开始，将数据从一张纸的一个单元格传输到另一张纸张，但我继续收到“无法跳转到'表格'的错误，因为它是隐藏的”。有人可以借给我一个手吗？提前谢谢。

施

System.out.println("a equals b " + ((Imp1)a).equals(b));

Answer 1

如果隐藏了' The sheet is hidden then unhide it If ThisWorkbook.Worksheets(strSourceSheet).Visible = False Then ' Check if one is visable. ThisWorkbook.Worksheets(strSourceSheet).Visible = True End If，则无法激活它，您需要先取消隐藏它。

如果要隐藏工作表，请使用以下if取消隐藏：

Sheets(strDestinationSheet)

第二张'However, having said that, if all you want is to copy cells betwwen sheets all you have to do is : Sub transfer() Dim strSourceSheet As String, strDestinationSheet As String, sourceData As String strSourceSheet = "profile list" strDestinationSheet = "RADIANT OPTO-ELECTRONICS CORP." ' this is how you referrence Cell(C11), if that's what you meant Sheets(strDestinationSheet).Cells(11, "C") = Sheets(strSourceSheet).Cells(30, 37).Value End Sub

也是如此

然而，话虽如此，如果你想要的只是在表格之间复制单元格，最好避免选择和激活，你所要做的就是：< / p>

{{1}}

Answer 2

您很少需要激活工作表或范围。您应该有视频Selecting Cells (Range, Cells, Activecell, End, Offset)和Worksheets, Charts and Sheets

Sub transfer()
    Const strDestinationSheet As String = "RADIANT OPTO-ELECTRONICS CORP."
    Const strSourceSheet As String = "profile list"

    Sheets(strDestinationSheet).Cells(C, 11) = Sheets(strSourceSheet).Cells(30, 37).Value
End Sub

在表格之间传输数据（Excel VBA）

2 个答案: