EXCEL VBA找第一筆資料

excel vba

no1kent 2019-06-16 20:34:31 ‧ 1725 瀏覽

請問iT的高手，以下程式碼("C7:BG7")的範圍，要如何修改成尋找第一個星期一，並貼上("C49:BG49")的值:

Sub Arrange_Shift_03()
Set theWS_shift = Sheets("班表")
Sheets("班表選擇").Select
Sheets("班表選擇").Range("C3:C59").Select
Selection.Copy
Sheets("班表").Select
Sheets("班表").Range("C49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

theWS_shift.Range("C49:BG49").Copy
theWS_shift.Range("C7:BG7").PasteSpecial Paste:=xlPasteValues

End Sub

來杯拿鐵 iT邦新手 2 級 ‧ 2019-06-16 22:15:17 檢舉

跟這題做法很像，只是「六」改成「一」。
https://ithelp.ithome.com.tw/questions/10194066

錄製巨集會有一些贅句，需要手動去優化。
行2~4 合併
Sheets("班表選擇").Range("C3:C59").Copy

小魚 iT邦大師 1 級 ‧ 2019-06-17 08:10:01 檢舉

那是同一個人問的,
你要自己去思考,
這些都只是基本的語法拚湊出來的而已,
如果沒辦法自己解決就不要繼續做這個了.

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

Neish

iT邦研究生 1 級 ‧ 2019-06-17 09:03:12

把這兩行
theWS_shift.Range("C49:BG49").Copy
theWS_shift.Range("C7:BG7").PasteSpecial Paste:=xlPasteValues

改成下面這樣試看看吧

Dim find_row As Integer

-- theWS_shift.Columns("B:B").Find("一").Row 找出星期一在哪一列
find_row = theWS_shift.Columns("B:B").Find("一").Row

theWS_shift.Range("C49:BG49").Copy
theWS_shift.Range("B" & find_row).PasteSpecial Paste:=xlPasteValues

建議您把整個問題需求提出來詢問

不然一個個單點破關可能最後也達不到您想要的結果