Excel VBA – 将variables命名表单中的数据复制到特定工作表

我有4个“转移”代码。 我想要做的是类似于复制和粘贴到列中最后一个活动单元格。 该过程正常工作，但彼此重叠。 我遇到的另一个问题是，我似乎无法使代码工作表1至10.我需要使它i + 3使其工作，但它不能正常工作。 我仍然缺less3张。 只有1到7。

代码如下：

Sub transfer_exp() Dim ws As String Dim n As Integer Dim i As Long Dim sheet As Worksheet Dim orow As Integer Dim lrow As Long Dim c As Range Dim ewt As Range Dim vat As Range Dim vatx As Range n = Sheets("Start").Range("c24").Value + 3 If n > 0 Then For i = 3 To n Dim desrow As Integer desrow = i - 1 rng = Range("AA11:AA40") Set sheet = Sheets(i) lrow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim origcol As Integer origcol = 1 Dim origrow As Integer origrow = 11 For Each c In sheet.Range("AA11:AA40") If c > 0 Then 'Header lines Sheets("OFFLIMITS").Cells(lrow, 1).Value = Sheets(i).Cells(3, 3).Value 'Vendor Sheets("OFFLIMITS").Cells(lrow, 2).Value = Sheets(i).Cells(2, 3).Value 'Transaction Date Sheets("OFFLIMITS").Cells(lrow, 3).Value = Sheets(i).Cells(4, 3).Value 'RefNumber Sheets("OFFLIMITS").Cells(lrow, 4).Value = Sheets(i).Cells(5, 3).Value 'Bill Due Sheets("OFFLIMITS").Cells(lrow, 5).Value = Sheets(i).Cells(6, 3).Value 'Terms Sheets("OFFLIMITS").Cells(lrow, 6).Value = Sheets(i).Cells(7, 3).Value 'Memo 'Expense lines Sheets("OFFLIMITS").Cells(lrow, 7).Value = Sheets(i).Cells(origrow, 5).Value 'Expenses Account Sheets("OFFLIMITS").Cells(lrow, 8).Value = Sheets(i).Cells(origrow, 15).Value 'Expenses Amount Sheets("OFFLIMITS").Cells(lrow, 9).Value = Sheets(i).Cells(origrow, 22).Value 'Expenses Memo Sheets("OFFLIMITS").Cells(lrow, 10).Value = Sheets(i).Cells(origrow, 7).Value 'Expenses Class 'row locators lrow = lrow + 1 origrow = origrow + 1 End If Next c Next i End If End Sub 

这些代码与下一组代码非常相似，这些代码往往会与结果重叠。 当然在一些细节上。 但在处理stream程方面，90％是一致的。 我想知道我错过了什么。 或者我犯的任何错误，使目标单元格中​​的数据重叠。 在此先感谢家伙。 更多的权力。 🙂