VBA变量不使用单元格值更新

Question

我是VBA新手，但希望在公司中实现某些表单的自动化。我试图编写的代码侧重于在基于输入表的表中输入数据，然后根据一个变量(电缆芯的数量(在单元格中向下复制几行。第一个例程将数据复制到表中，然后调用第二个路由来向下复制数据。我遇到的问题是，我的变量没有用单元格中的信息更新，它们保持为0。

这可能是一个简单的解决办法，但我似乎解决不了。任何帮助都将不胜感激。

Sub Data_input()
'Inputs the values from input to Overview sheet
next_row = ws1.Range("F" & Rows.Count).End(xlUp).Offset(1).Row
ws1.Cells(next_row, 2).Value = Range("Cable_Number").Value
ws1.Cells(next_row, 3).Value = Range("Equipm_Name").Value
ws1.Cells(next_row, 4).Value = Range("Description").Value
ws1.Cells(next_row, 9).Value = Range("Section").Value
ws1.Cells(next_row, 6).Value = Range("Cable_Number").Value
Application.Run "Module3.Data_Copy"
End Sub

Sub Data_Copy()
Dim b1 As Long
Dim lr As Long
Dim x1 As Long

'set amount of cores in b, b is used to determine amount of copy cycles.
b1 = ws2.Range("Cores").Value
x1 = b1 - 1 'adjusted, because one line is already filled in.

Do Until x1 = 0
'Find the last row with data:
lr = ws1.Cells(Rows.Count, "F").End(xlUp).Row
'Copies the Cablenumber sleeve until all Cores are done:
ws2.Range("Cable_Number").Copy Destination:=ws1.Range("F" & lr + 1)
x1 = x1 - 1
Loop

Application.CutCopyMode = False
End Sub

Answer 1

我通过将工作表的显式标记添加到要分配给变量的每个单元格值来解决问题。很抱歉最初的草率问题。周五下午，由于无法修复代码而感到沮丧。。。感谢您的意见。