要将单个excel工作簿中存在的232个excel工作表中的数据复制到目标工作表中，行名和工作表名应相同

Question

要将单个excel工作簿中存在的232个excel工作表中的数据复制到同一工作簿中存在的目标excel工作表中，并以目标工作表中的行名应与工作表名相同的条件为条件。由于在excel文件中命名工作表时，大小受限制，因此对于某些工作表，名称写得短一些，但在Desstion工作表中，名称写成完整的形式。因此对于某些工作表，数据没有累积。如何解决此问题？请帮助。

Private Sub CommandButton1_Click()
Dim sheetName As String
Dim i As Integer
i = 2
Do While Cells(i, 1).Value <> ""

        sheetName = Cells(i, 1)
        Cells(i, 4) = Sheets(sheetName).Cells(190, 7).Value
        Cells(i, 5) = Sheets(sheetName).Cells(191, 7).Value
        Cells(i, 6) = Sheets(sheetName).Cells(192, 7).Value
        Cells(i, 7) = Sheets(sheetName).Cells(193, 7).Value
        Cells(i, 8) = Sheets(sheetName).Cells(194, 7).Value
        Cells(i, 9) = Sheets(sheetName).Cells(195, 7).Value
        Cells(i, 10) = Sheets(sheetName).Cells(196, 7).Value
        i = i + 1
Loop
End Sub

Answer 1

尝试使用以下代码（由于手动重命名工作表时工作表名称的最大长度为31个字符，因此可以限制sheetName ）：

Private Sub CommandButton1_Click()
Dim sheetName As String
Dim i As Integer
i = 2
Do While Cells(i, 1).Value <> ""

        sheetName = IIf(Len(Cells(i, 1))>31,Left(Cells(i, 1),31),Cells(i, 1))
        Cells(i, 4) = Sheets(sheetName).Cells(190, 7).Value
        Cells(i, 5) = Sheets(sheetName).Cells(191, 7).Value
        Cells(i, 6) = Sheets(sheetName).Cells(192, 7).Value
        Cells(i, 7) = Sheets(sheetName).Cells(193, 7).Value
        Cells(i, 8) = Sheets(sheetName).Cells(194, 7).Value
        Cells(i, 9) = Sheets(sheetName).Cells(195, 7).Value
        Cells(i, 10) = Sheets(sheetName).Cells(196, 7).Value
        i = i + 1
Loop
End Sub