兩個Excel檔案值抓取的問題

excel

ektrontek 2020-11-16 22:54:17 ‧ 849 瀏覽

分享至

請教大家
如何比較兩個excel檔案中,同樣名稱的sheet1資料,A欄名稱如果一樣,就把他B,C,D,E,F欄的值抓給另外一個excel檔案同樣sheet1的B,C,D,E,F欄來使用(把它複製過去)
感謝

player iT邦大師 1 級 ‧ 2020-11-16 23:42:39 檢舉

你要自己學Excel VBA
https://docs.microsoft.com/zh-tw/office/vba/api/overview/excel

登入發表討論

直播研討會

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

直播中

3 個回答

stephen3342

iT邦新手 2 級 ‧ 2020-11-17 08:59:45

這段影片有很詳細的說明
https://youtu.be/OM2cSVEJuB4

回應
分享
檢舉

登入發表回應

Neish

iT邦研究生 1 級 ‧ 2020-11-17 09:45:11

簡單的話可以用vlookup操作

可是每欄都要寫公式

VBA作法參考如下

Private Sub CommandButton1_Click()

    Dim i As Integer
    Dim CopyRow As Object
    
    'Range("A65536").End(xlUp).Row -> 取最後一個位置
    For i = 1 To Workbooks("範例1.xls").Worksheets(1).Range("A65536").End(xlUp).Row

        '找範例2
        Set CopyRow = Workbooks("範例2.xls").Worksheets(1).Range("A:A").Find(Workbooks("範例1.xls").Worksheets(1).Range("A" & i))
        
        '如果FIND有找到
        If Not CopyRow Is Nothing Then
            '複製到範例1
            Workbooks("範例2.xls").Worksheets(1).Range("B" & CopyRow.Row & ":F" & CopyRow.Row).Copy Workbooks("範例1.xls").Worksheets(1).Cells(i, 2)
        End If
    Next
    
End Sub

範例檔案如下方連結(請開啟兩個檔案)
https://cowtransfer.com/s/b13fd5fde6d54a