Question

我是编码的新手。在这里，我有一个excel工作表很多行。我需要将一些单元格作为参数复制到另一个单元格工作表。

这将根据预定义的功能给出答案。

然后我需要将答案复制回原始工作表行。 VBA不断给我“功能或子未定义的消息”。

有谁能告诉我我做错了什么？

'start of function
 Sub RTA()
 Dim Master As Worksheet 
 Dim sheet1 As WorksheetDataConnection 
 Dim i As Integer i = 1
 Do While i < 712
     'while loop read corrosion rate
     Sheets("Master").Select
     cell(i, 23).Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Sheet1").Select
     Range("C10").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Skipblanks _
         :=False, Transpose:=False

     'while loop read thickness remain
     Sheets("Master").Select
     cell(i, 25).Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Sheet1").Select
     Range("C11").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Skipblanks _
        :=False, Transpose:=False

     'while loop copy risk
     Sheets("Sheet1").Select
     Range("I12").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Master").Select
     cell(i, 27).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False

     'while loop copy AR/T
     Sheets("Sheet1").Select
     Range("C12").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Master").Select
     cell(i, 26).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False 
Loop 
Print i 
End Sub

函数或子未定义

0 个答案: