如何取得sheet1指定內容複製到sheet2 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何取得sheet1指定內容複製到sheet2

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

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

　暱稱: joey0415

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 2017-4-3 16:31 | 顯示全部帖子

回復 3# coke373

參考參考

Sub ex()
k = Sheets(2).Cells(9, Columns.Count).End(xlToLeft).Column
For i = 1 To 40
Sheets(2).Cells(i + 1, k + 1) = Sheets(1).Cells(i, 1)
Next
Sheets(2).Cells(1, k + 1) = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00")
End Sub

複製代碼

　暱稱: joey0415

中學生 Rank: 2

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

2^#

發表於 2017-4-4 09:44 | 顯示全部帖子

回復 6# coke373

Book1.zip (9.14 KB)

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

複製代碼

　暱稱: joey0415

中學生 Rank: 2

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

3^#

發表於 2017-4-5 09:55 | 顯示全部帖子

回復 9# coke373

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

請自行研究看看

　暱稱: joey0415

中學生 Rank: 2

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

4^#

發表於 2017-4-6 15:23 | 顯示全部帖子

回復 12# coke373

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

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

　暱稱: joey0415

中學生 Rank: 2

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

5^#

發表於 2017-4-9 12:12 | 顯示全部帖子

回復 14# coke373

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

靜思自在 : 忘功不忘過，忘怨不忘恩。

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