[發問]如何使用VBA將有重複參照值貼到不同worksheet
- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Win7
- 閱讀權限
- 10
- 註冊時間
- 2016-7-27
- 最後登錄
- 2022-7-4
|
[發問]如何使用VBA將有重複參照值貼到不同worksheet
各位專家好，我自己近期開始自己鑽研程式撰寫,
由於是VBA新手，近來配合工作所需想要寫一個VBA程式，查了網路上許多資料，必須跨不同表單參照的一個作業
本想使用巨集搭配Vlookup函數但因為他並不是Case sensitive的函數，因此作罷
嘗試寫了Index 參照表但發現比對會停不下來，我想跟我下的指令有關
預期希望按下按鈕(透過"帶入職能(right)"的按鈕,TriggerH2欄位讓表A底下的能從表B欄位A以及其相同列資料都能匯入相對應的值
如圖:
但拼湊的巨集都會變成這樣...
這是我的程式碼- Sub 按鈕9_Click()
- Dim SourceLastRow As Long
- Dim OutputLastRow As Long
- Dim sourceSheet As Worksheet
- Dim outputSheet As Worksheet
- 'What are the names of our worksheets?
- Set sourceSheet = Worksheets("competencylist_2016")
- Set outputSheet = Worksheets("inserttext")
- 'Determine last row of source
- With sourceSheet
- SourceLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
- End With
- With outputSheet
- 'Determine last row in col P
- OutputLastRow = .Cells(.Rows.Count, "P").End(xlUp).Row
- 'Apply our formula
-
-
- .Range("B6:B20" & OutputLastRow).Formula = _
- "=INDEX('competencylist_2016'!$C$2:$C$100, SMALL(INDEX(($H$2='competencylist_2016'!$A$2:$A$100)*(MATCH(ROW('competencylist_2016'!$A$2:$A$100),ROW('competencylist_2016'!$A$2:$A$100)))+($H$2<>'competencylist_2016'!$A$2:$A$100)*1048577,0,0),ROW('competencylist_2016'!A1)))"
- .Range("C6:C20" & OutputLastRow).Formula = _
- "=VLOOKUP(B:B,'" & sourceSheet.Name & "'!$C$1:$F$1" & SourceLastRow & ",2,0)"
- End With
- End Sub
 VBA TEST08022016.rar (375.92 KB)
|
|
|
|
|
|
|
|
發表於 2016-8-2 22:08
| 
