vba - Excel VBA 带计数器的多个子程序

Question

因此，我一直在尝试弄清楚如何继续进行此操作，只是提醒一下，我仍在学习 VBA 的过程中，但我正在向这里寻求有关此问题的建议/帮助。

我基本上在我的主程序中使用了一个计数器，然后调用一个子程序，它需要使用主程序中的计数器来正确地做我需要的事情。以下是我到目前为止的代码。

Sub Main()

Dim Count As Integer
Dim X As Integer
Worksheets("Main Sched.").Activate
X = 2
Count = Cells(2, Columns.Count).End(xlToLeft).Column

Do While X < Count + 2
Cells(X, 2).Select
Ctype = ActiveCell

If Ctype = "3/C #6" Then Call Ct1
If Ctype = "2/C #6" Then Call Ct2

X = X + 1
Loop
End Sub

Sub Ct1()

Cells.Copy
Worksheets("Test").Activate
Cells(X + 2, 2).Select
Cells(X + 2, 2).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

End Sub

它以运行时错误“1004”结束，将 excel 工作表中的单元格粘贴到当前单元格中，粘贴到第一个单元格（A1 或 R1C1）中。我需要获取该数据并将其粘贴到 B4 中，稍后在基于“计数”的循环中将相应地调整为 B8、B13 等。

我需要将其拆分的原因是因为它将有许多不同的“Ctype”值可供参考，并且每个值对于如何从“Main Sched”获取数据都有不同的方案。工作表到“测试”工作表。

标签： vbaexcel