iT邦幫忙

0

兩個Excel檔案值抓取的問題

  • 分享至 

  • xImage

請教大家
如何比較兩個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 }} |
{{ formatDate(item.duration) }}
直播中
0
stephen3342
iT邦新手 2 級 ‧ 2020-11-17 08:59:45

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

1
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

0
RoT
iT邦新手 5 級 ‧ 2020-11-17 11:33:50

ektrontek, 你好

這邊提供 Excel 公式 給你參考 如下圖:

左邊是參考, 右邊是顯示結果

https://ithelp.ithome.com.tw/upload/images/20201117/201242488CwMawuLi2.jpg

附上檔案

歡迎討論 - RoT

ektrontek iT邦研究生 1 級 ‧ 2020-11-19 21:21:04 檢舉

謝謝

我要發表回答

立即登入回答