麻烦大家帮我“翻译”一下Excel中的这些VBA是什么意思

Question

Sheets("浪费工时及生产问题输入窗口").Select
N = Range("E3")
A = Range("I3")
B = Range("E6")
C = Range("e4")
D = Range("k4")
E = Range("m4")
F = Range("g4")
G = Range("i4")
Q = Range("D30")
R = Range("E30")
S = Range("F30")

Sheets("浪费工时及生产问题输入窗口").Select
ActiveWindow.SmallScroll Down:=9
Range("E30:E30").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=15
Range("E33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-6
Range("D30").Select
Application.CutCopyMode = False
Selection.Copy
Range("D33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F30").Select
Application.CutCopyMode = False
Selection.Copy
Range("F33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D33").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-12
Range("E23:G23").Select
ActiveSheet.Paste
Range("F33").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-12
Range("F22:M22").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("E33").Select
Application.CutCopyMode = False
Selection.Copy
Range("E24:M24").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-24
Sheets("浪费工时反馈").Select
Dim Rown8 As Long
Dim Rng8 As Range
Set Rng8 = ActiveSheet.UsedRange
For Rown8 = Rng8(Rng.Count).Row To 1 Step -1
If Cells(Rown8, "A") <> "" Then Exit For
Next
MsgBox Rown8
Cells(Rown8 + 1, "a") = A
Cells(Rown8 + 1, "b") = B
Cells(Rown8 + 1, "c") = C
Cells(Rown8 + 1, "d") = D
Cells(Rown8 + 1, "e") = E
Cells(Rown8 + 1, "f") = F
Cells(Rown8 + 1, "g") = G
Cells(Rown8 + 1, "N") = S
Cells(Rown8 + 1, "O") = Q
Cells(Rown8 + 1, "P") = R

Answer 1

打开excel状态下，按alt+f11，打开VBA调试工具，按F8分步执行（即你按一次F8，执行一句），
这样你就可以很直观地看到每一步的意思了。

Answer 2

MM追问

怎么个意思