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

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

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

16^#

發表於 2017-4-9 23:45 | 只看該作者

回復 15# joey0415

好的，感恩。謝謝你

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

15^#

發表於 2017-4-9 12:12 | 只看該作者

回復 14# coke373

幫忙只到這，剩下的自己想辦法

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

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

14^#

發表於 2017-4-9 00:55 | 只看該作者

回復 13# joey0415

大大我試了很多次，都無法代入，請求你幫忙。

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

13^#

發表於 2017-4-6 15:23 | 只看該作者

回復 12# coke373

http://forum.twbts.com/thread-850-1-1.html

列印沒有有用，請上網找找

帖子: 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)

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

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

11^#

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

回復 10# joey0415

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

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

10^#

發表於 2017-4-5 09:55 | 只看該作者

回復 9# coke373

i- ?
代表你的表格往上移動多少，自行微調
若只有i 那代表複製的位置與原來的位置相同

請自行研究看看

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

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

9^#

發表於 2017-4-5 00:51 | 只看該作者

回復 7# joey0415
大大謝謝你幫忙
我有幾個問題想問

Sheets(2).Cells(i - 9, k + 1) = Sheets(1).Cells(i, 3)
Sheets(2).Cells(i - 19, k + 1) = Sheets(1).Cells(i, 3）
Sheets(2).Cells(i - 35, k + 1) = Sheets(1).Cells(i, 3)
i-9
i-19
i-35 是代表什麼？
For i = 11 To 96 如果我改成For i = 11 To 100 預多行數。要不要修改i-9?
因為我嘗試修改For i = 11 To 100 ，然後下面的For i = 107 To 120 帖出來會減少了。

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

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

8^#

發表於 2017-4-4 14:08 | 只看該作者

回復 7# joey0415

大大感謝你的幫忙!今晚回到公司再套用.