返回列表 上一主題 發帖

[發問] 資料複製

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-12-7 12:35 | 顯示全部帖子
回復 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
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2012-12-10 00:09 | 顯示全部帖子
回復 6# funnydisk
=IFERROR(VLOOKUP(      ),"")

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題