我有一张12页的信息。我希望将每张纸上的某些信息整理到一张纸上。将单元格的变量范围从一个表格复制到另一个表格
所以,
我首先是找出我有多少行处理的话,我想前两列复制到另一个工作表(结果)。
现在,我可以从每张表中复制第一列,但无法锻炼我做错了什么,以获得第二列复制以及。
Sub loopMe()
Dim Jan As Worksheet, Feb As Worksheet, Mar As Worksheet, Apr As Worksheet, May As Worksheet, Jun As Worksheet
Dim Jul As Worksheet, Aug As Worksheet, Sep As Worksheet, October As Worksheet, Nov As Worksheet, Dec As Worksheet
Dim LstR As Long, rngJan As Range, c As Range, rngFeb As Range, rngMar As Range, rngApr As Range
Dim rngMay As Range, rngJun As Range, rngJul As Range, rngAug As Range, rngSep As Range, rngOctober As Range
Dim rngNov As Range, rngDec As Range
Set Jan = Sheets("January") 'set the sheet to loop
With Jan 'do something with the sheet
LstR = .Cells(.Rows.Count, "A").End(xlUp).Row 'find last row
Set rngJan = .Range("A2:B" & LstR) 'set range to loop
End With
Set Feb = Sheets("February") 'set the sheet to paste
With Feb 'do something with the sheet
LstR = .Cells(.Rows.Count, "A").End(xlUp).Row 'find last row
Set rngFeb = .Range("A2:B" & LstR) 'set range to loop
End With
“以上应该设置数据的每个片(希望) ”的范围。然后我运行下面
For Each y In rngJan
Worksheets("Results").Range("A65536").End(xlUp).Offset(1, 0).Value = y.Value
Next y
For Each y In rngFeb
Worksheets("Results").Range("A65536").End(xlUp).Offset(1, 0).Value = y.Value
Next y
我需要被存储在列中的信息的&乙所以他们是即时尝试复制。
任何人都可以帮忙吗?
@JasonPye对您有帮助吗?如果不是,请给予反馈,以便我可以更好地帮助。 –