如何取得sheet1指定內容複製到sheet2 - Excel程式區

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

[發問] 如何取得sheet1指定內容複製到sheet2

coke373

小學生 Rank: 1

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

11^# 跳轉到 »

發表於 2017-4-5 23:40 | 只看該作者

回復 10# joey0415

謝謝大大解釋，完全明白。
我還有一個問題想請教你，可不可以將複製的合併格的多餘的空格自動刪除。
VBA有沒有這樣的指令。

TOP

coke373

小學生 Rank: 1

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2017-4-6 01:25 | 只看該作者

回復 7# joey0415
Sub ex()

k = Sheets(2).Cells(9, Columns.Count).End(xlToLeft).Column

For i = 11 To 96

   Sheets(2).Cells(i - 9, k + 1) = Sheets(1).Cells(i, 3)

Next

For i = 107 To 120

   Sheets(2).Cells(i - 19, k + 1) = Sheets(1).Cells(i, 3)

Next

For i = 137 To 139

   Sheets(2).Cells(i - 35, k + 1) = Sheets(1).Cells(i, 3)

Next

Sheets(2).Cells(1, k + 1) = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00")

End Sub

大大你好
請問可不可以在以上指令入面加自動列印,按每天讀取的內容做範圍.

Sub test()

For i = 2 To 6 Step 2

Range(Cells(i, 1), Cells(i + 1, 5)).PrintOut

Next i

End Sub
我找到類似的,如何修改Range.加入自動循環列印 ,如Sheets(2).Cells(1, k + 1)

TOP

joey0415