Question

excell运行VBA后弹出方法和数据成员未找到，求解决

Sub 添加工作表() Dim Sh As Worksheet, i As Long Sheets.Add After:=Sheets(Sheets.Count), Count:=Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1 For i = 2 To 6 Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value Sheets("Sheet2").Copy After:=Sheets(Sheets.i) Worksheets(i).Range("B3").Value = Worksheets(1).Cells(i, 1).Value Worksheets(i).Range("D3").Value = Worksheets(1).Cells(i, 2).Value Worksheets(i).Range("B4").Value = Worksheets(1).Cells(i, 3).Value Worksheets(i).Range("D4").Value = Worksheets(1).Cells(i, 4).Value Worksheets(i).Range("B13").Value = Worksheets(1).Cells(i, 5).Value NextEnd Sub





Answer 1

这有问题

追问

你好，感谢你回答我，请问这里应该怎么改

追答

我不知道你那想表达啥啊，但是语法肯定错了