未定义VBA Sub或Function

我写了一个代码，我有点新的这个。 我不断收到我的macros代码编译错误，一个编译错误，该子或函数没有定义。 我试图用vba菜单<工具<引用，但我不能点击它。 有什么build议么？ 下面是我试图运行的macros代码

Sub Update() ' ' Application.ScreenUpdating = True Dim copysheet As Worksheet Dim pastesheet As Worksheet Set copysheet = Worksheets("Daily Sheet") Set pastehseet = Worksheets("Raw Data") copysheet.Range("G5").Copy Sheet("Raw Data").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValue, Operation:=xlNone, Skipblanks_:=False, Transpose:=False copysheet.Range("G7").Copy Sheet("Raw Data").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValue, Operation:=xlNone, Skipblanks_:=False, Transpose:=False copysheet.Range("G14").Copy Sheet("Raw Data").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValue, Operation:=xlNone, Skipblanks_:=False, Transpose:=False copysheet.Range("G9").Copy Sheet("Raw Data").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValue, Operation:=xlNone, Skipblanks_:=False, Transpose:=False copysheet.Range("G11").Copy Sheet("Raw Data").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValue, Operation:=xlNone, Skipblanks_:=False, Transpose:=False copysheet.Range("G13").Copy Sheet("Raw Data").Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValue, Operation:=xlNone, Skipblanks_:=False, Transpose:=False Sheets("Daily Sheet").Range("G5:G14").Select.ClearContents Sheets("Daily Sheet").Range("K9").Select End Sub 

Answer 1

 Dim copysheet As Worksheet Dim pastesheet As Worksheet Set copysheet = Worksheets("Daily Sheet") Set pastesheet = Worksheets("Raw Data") copysheet.Range("G5").Copy Sheets("Raw Data").Range("A" & Rows.Count).End(xlUp).offset(1).PasteSpecial Paste:=xlPasteValues copysheet.Range("G7").Copy Sheets("Raw Data").Range("B" & Rows.Count).End(xlUp).offset(1).PasteSpecial Paste:=xlPasteValues copysheet.Range("G14").Copy Sheets("Raw Data").Range("C" & Rows.Count).End(xlUp).offset(1).PasteSpecial Paste:=xlPasteValues copysheet.Range("G9").Copy Sheets("Raw Data").Range("D" & Rows.Count).End(xlUp).offset(1).PasteSpecial Paste:=xlPasteValues copysheet.Range("G11").Copy Sheets("Raw Data").Range("G" & Rows.Count).End(xlUp).offset(1).PasteSpecial Paste:=xlPasteValues copysheet.Range("G13").Copy Sheets("Raw Data").Range("H" & Rows.Count).End(xlUp).offset(1).PasteSpecial Paste:=xlPasteValues Sheets("Daily Sheet").Range("G5:G14").clear Worksheets("Daily Sheet").Range("K9").Select 

似乎做你想做的事情。

我发现的问题是：

使用工作表 – 不是工作表（这解释了你所得到的错误，因为它认为工作表是另一个macros或类似的东西

同样的，你已经错过了粘贴特价上xlvalues结尾的x。

最后，你需要在最后使用Worksheets（ws.name）进行select。

希望这有助于