excel vba数据传输从一个工作表到另一个错误只有标题复制没有任何数据

Question

excel vba数据传输从一个工作表到另一个错误只有标题复制没有任何数据这是代码

Sub transferData()
    Application.ScreenUpdating = False
    'Dim myData As Worksheet, ItemA As Worksheet, ItemB As Worksheet, ItemC As Worksheet, ItemD As Worksheet, ItemE As Worksheet
    Dim Item As String
    Dim price As Long, Quantity As Long
    Dim r1 As Long, erow As Long
    r1 = 1

    Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")).Select
       Sheets("Sheet2").Activate
       ActiveSheet.Cells.Select
       Selection.Clear

    Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")).Select
        Sheets("Sheet2").Activate
        Sheets("Sheet2").Range("A1").Select
        ActiveCell.Value = "Item"
        Sheets("Sheet2").Range("B1").Select
        ActiveCell.Value = "price"
        Sheets("Sheet2").Range("C1").Select
        ActiveCell.Value = "Quantity"

    myData.Activate

    Do While Cells(r1, 1) <> ""
    Item = Cells(r1, 2).Value
    r1 = r1 + 1
    price = Cells(r1, 2).Value
    r1 = r1 + 1
    qty = Cells(r1, 2)
    r1 = r1 + 1

    p = Worksheets.Count
    For q = 1 To p
    If ActiveWorkbook.Worksheets(q).CodeName = UCase(ItemName) Then
    Worksheets(q).Activate
    erow = Worksheets(q).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Cells(erow, 1).Value = ItemName
    Cells(erow, 2).Value = price
    Cells(erow, 3).Value = qty
    End If
    Next q
    myData.Activate
    Loop
    Application.ScreenUpdating = True
    End Sub

Answer 1

工作表变量myData既不是Dimed也不是Set。 使用变量ItemName但从未赋值。

可能还有其他问题