[發問] 資料複製

funnydisk

請教各位前輩，
我有2個excle檔，(基本工資.xls and 個人資料.xls)，如果二個檔案都在開啟的狀態下，
如何先比對基本工資.xls下A1這個欄位，然後將B1與C1貼入個人資料.xls的相對欄位中
(二個資料皆在各自的sheet1活頁中)，謝謝

基本工資.xls
A1    B1           C1
小陳   22000  男
小明   35000  女
小王   28000  男

個人資料.xls
A1　B1   C1
小明　
小王   
小陳

funnydisk

Sorry發錯版頁，請問如何刪除這個頁面，並改發至excel程式區，謝謝

stillfish00

回復 1# funnydisk
應該是A欄 B欄 C欄 不是A1 B1 C1 ?

用公式就可以了
在個人資料.xls的
B1儲存格打上  =VLOOKUP(A1,[基本工資.xls]sheet1!A$1:C$3,2)
向下拉填滿公式
C1儲存格打上  =VLOOKUP(A1,[基本工資.xls]sheet1!A$1:C$3,3)
向下拉填滿公式

funnydisk

感謝stillfish00大大的回覆，已了解voolup的作用，另想請問，我將vlookup錄成vba
檔案的位置是否可使用變數(file_path)，修改如下，但發現無法執行，謝謝

dim file_path as Worksheets
file_path = "C:\人事資料\薪資.xlsx
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],file_path!R4C[-10]:R1900C[-6],3,FALSE)"

stillfish00

回復 4# funnydisk
參考看看

1. Sub test()
   
2.     Dim file_path As String
   
3.     Dim sArr
   
4.     file_path = "C:\人事資料\薪資.xlsx"
   
5.     sArr = Split(file_path, "\")
   
6.     sArr(UBound(sArr)) = "[" & sArr(UBound(sArr)) & "]"
   
7.     file_path = "'" & Join(sArr, "/") & "sheet1'"
   
8.     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10]," & file_path & "!R4C[-10]:R1900C[-6],3,FALSE)"
   
9. End Sub

複製代碼

funnydisk

回復 5# stillfish00
再次感謝stillfish00的幫忙，另想請問，如果篩選的資料欄位是沒有這個資料，是否可以讓他也以空白填入，而不要出現#N/A呢，謝謝

stillfish00

回復 6# funnydisk
=IFERROR(VLOOKUP(      ),"")