求助：VBA一段代码，实在看不懂了，谢谢！

Dim wb As Workbook
Dim workbookname As String
Dim tableheadname As String
Dim notename As String
Dim filename As String

Dim flag As Integer
Dim i As Integer
Application.ScreenUpdating = False
Set wb = ThisWorkbook
workbookname = wb.Sheets(2).Cells(2, 4).Value
flag = wb.Sheets(2).Cells(3, 4).Value
tableheadname = wb.Sheets(2).Cells(4, 4).Value
notename = wb.Sheets(2).Cells(5, 4).Value

For i = 2 To flag + 1
Workbooks(workbookname).Sheets(tableheadname).Range("A" & i & ":I" & i).Copy
wb.Sheets(1).Range("E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Workbooks(workbookname).Sheets(tableheadname).Range("J" & i & ":DI" & i).Copy
wb.Sheets(1).Range("C12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Workbooks(workbookname).Sheets(notename).Range("K" & i & ":DI" & i).Copy
wb.Sheets(1).Range("D13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

filename = wb.Sheets(2).Cells(6, 4).Value
'wb.SaveCopyAs filename:=ThisWorkbook.Path & filename
wb.Sheets(1).Copy
ActiveWorkbook.SaveAs filename:=ThisWorkbook.Path & filename, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Next i
Set wb = Nothing
Application.ScreenUpdating = True
End Sub

这段代码就是把工作薄workbookname中的A到I列(从第2行到flag+1行)复制到本表的E2开始,下面一样,保存到本工作本下的名字为filename备份.

我不会~~~但还是要微笑~~~：）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息