返回列表下一主題上一主題發帖

[發問] 要怎麼加入空白行

smgm1234

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2013-10-1
最後登錄: 2019-4-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-5 12:16 | 只看該作者

[發問] 要怎麼加入空白行

我用vba 合併 SHEETS 多個 SHEETS 程式碼如下但我想在每個 SHEETS 複製過來的時候都往下移動5行 (每個SHEETS資料都不一樣多列)

正在努里學習中謝謝大大們的幫忙

Sub 合併()
Dim b(11) As Integer
Range("a2:z10000").Select
Selection.ClearContents
Cells(1, 1).Select
For j = 2 To 11
b(j) = Sheets(j).UsedRange.Rows.Count
c = Sheets(1).UsedRange.Rows.Count
For i = 1 To b(j) + 1
a1 = Sheets(j).Cells(i + 1, 1).Value
a2 = Sheets(j).Cells(i + 1, 2).Value
a3 = Sheets(j).Cells(i + 1, 3).Value
a4 = Sheets(j).Cells(i + 1, 4).Value
a5 = Sheets(j).Cells(i + 1, 5).Value
a6 = Sheets(j).Cells(i + 1, 6).Value
a7 = Sheets(j).Cells(i + 1, 7).Value
a8 = Sheets(j).Cells(i + 1, 8).Value
Worksheets("總表").Cells(c + i, 1).Value = a1
Worksheets("總表").Cells(c + i, 2).Value = a2
Worksheets("總表").Cells(c + i, 3).Value = a3
Worksheets("總表").Cells(c + i, 4).Value = a4
Worksheets("總表").Cells(c + i, 5).Value = a5
Worksheets("總表").Cells(c + i, 6).Value = a6
Worksheets("總表").Cells(c + i, 7).Value = a7
Worksheets("總表").Cells(c + i, 8).Value = a8
Next i
Next j
Sheets(1).Select
End Sub