excel 巨集問題?

2015-09-15 8:33 pm

各位EXCEL巨集的高手們: 以下描述的要件不知是否有辦法寫成巨集呢?

以我上傳的圖片為例,

A1欄中有一個日期 (8/1/2015). 我希望巨集能幫我找到第三行中, 與A1欄相對應的日期, 也就是H3. 找到之後, 我想要複製(copy) 整個 H 列, 然後複製到 I 列.
做完 Sheet A 之後, 換到 Sheet B 重複. 然後 Sheet C , Sheet D ...

麻煩指點一下, 謝謝..

更新1:

不好意思, 我是想複製(copy) 整個 H 列, 然後"貼(paste)到" I 列.

更新2:

謝謝回答. Sheet B也是搜尋後也是貼到Sheet B. 只是SheetB 的相對應日期(8/15/2015) 不一定是在 H3. 有可能是C3 或G3 或 Z3. 基本上我是希望找到相對應日期之後, 把那一整列的資料複製, 然後貼到他右邊的一列. 謝謝

回答 (1)

先生

2015-09-15 11:46 pm

Sheet B也是搜尋後也是貼到Sheet B的I欄嗎還是貼到Sheet A的I欄以後接續

Sub test()
Dim Cx As Range
Dim Gx As Variant
For i = 1 To Sheets.Count
Set Cx = Sheets(i).Rows(3)
Ax = Sheets(1).Cells(1, 1)
Gx = Application.Match(Ax, Cx, 0)
If Not IsError(Gx) Then
Sheets(i).Columns(Gx).Copy Sheets(i).Cells(1, 9)
End If
Set Cx = Nothing
Next
End Sub

👍 1 👎 0