|
本帖最后由 qjsu 于 2012-10-30 15:10 编辑
我想把前边三个表格中的数据按顺序复制到第四个表格中,使用以下代码提示错误,应该怎么修改啊?附件是生成之后的例子,请参考
ps:最好不要重新编一个,我就是想知道我这个代码哪里错了!!按照我的思路修改是最好了
Public Sub 复制配置清单()
Dim s As Integer
Dim x As Integer
Dim row As Integer
For s = 1 To Sheets.Count - 1
Worksheets("Sheet" & s).Activate
ReDim Preserve row(s) As Integer
row(s) = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).row
ReDim Preserve x(s) As Integer
x(0) = 1
x(s) = x(s) + row(s)
Range("A2").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Sheet" & Sheets.Count).Select
Range("A" & x(s)).Select
ActiveSheet.Paste
Next
End Sub
- Public Sub 复制配置清单()
- Dim s As Integer
-
- Dim x
-
- Dim row
-
- Worksheets("sheet4").Cells.Clear
-
- For s = 1 To Sheets.Count - 1
- With Worksheets("Sheet" & s)
- i = Worksheets("sheet4").Range("a65536").End(xlUp).row
- If i <> 1 Then i = i + 2
- .Range("a1").CurrentRegion.Copy Worksheets("sheet4").Cells(i, 1)
- End With
- Next
-
- End Sub
复制代码
|
|