自动input数据时出错

我logging了一个macros，并与我研究和testing的一些代码集成在一起，这些代码单独运行。 然而，把它们结合在一起，我偶然发现了运行macros的错误。 popup一个显示的消息框

编译错误：预期结束

将不胜感激所有的帮助，我可以得到解决它

Sub Book1UpdateDelete() ' ' Book1UpdateDelete Macro ' ' Keyboard Shortcut: Ctrl+g ' 'Select values in a column from specified workbook and sheet Dim LR As Long, cell As Range, rng As Range Windows("Y738 Data").Activate With Sheets("Graph data") LR = .Range("B" & Rows.Count).End(xlUp).Row For Each cell In .Range("B4:B" & LR) If cell.Value <> "" Then If rng Is Nothing Then Set rng = cell Else Set rng = Union(rng, cell) End If End If Next cell rng.Select End With Selection.Copy 'Open next workbook Windows("Y783").Activate 'Open Sheet L Sheets("L").Select 'Select empty field fromn column AA Range("AA" & Rows.Count).End(xlUp).Offset(1).Select 'paste selection to empty field Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Go back to previous workbook & delete column Windows("Y738").Activate With Sheets("Graph data") Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Sheets("Graph Data").Select End Sub 

Answer 1

你已经错过了，并在你的代码底部结束。

试试这个（未经testing）

 Sub Book1UpdateDelete() ' ' Book1UpdateDelete Macro ' ' Keyboard Shortcut: Ctrl+g ' 'Select values in a column from specified workbook and sheet Dim LR As Long, cell As Range, rng As Range Windows("Y738 Data").Activate With Sheets("Graph data") LR = .Range("B" & Rows.Count).End(xlUp).Row For Each cell In .Range("B4:B" & LR) If cell.Value <> "" Then If rng Is Nothing Then Set rng = cell Else Set rng = Union(rng, cell) End If End If Next cell rng.Select End With Selection.Copy 'Open next workbook Windows("Y783").Activate 'Open Sheet L Sheets("L").Select 'Select empty field fromn column AA Range("AA" & Rows.Count).End(xlUp).Offset(1).Select 'paste selection to empty field Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Go back to previous workbook & delete column Windows("Y738").Activate With Sheets("Graph data") Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Sheets("Graph Data").Select End with End Sub