返回列表下一主題上一主題發帖

[發問] 資料複製

funnydisk

中學生 Rank: 2

帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-11-27 12:44 | 只看該作者

[發問] 資料複製

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

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

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

樓主熱帖

funnydisk

中學生 Rank: 2

帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

2^#

發表於 2012-11-27 13:03 | 只看該作者

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

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2012-11-29 19:37 | 只看該作者

回復 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)
向下拉填滿公式

TOP

funnydisk

中學生 Rank: 2

帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

4^#

發表於 2012-12-7 10:51 | 只看該作者

感謝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)"

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2012-12-7 12:35 | 只看該作者

回復 4# funnydisk
參考看看

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

複製代碼

TOP

funnydisk