用於在vlookup中全選的宏

我對每週更改一次的大型電子表格進行格式化，並將其與每週更改一次的數據文件進行匹配。我需要在我的vlookup中使用「全選」功能，以及「自動填充」將公式向下複製到最後一行。我試過「當前區域」，「表格」，&以「結束」語句失敗。由於我很少創建宏，所以我沒有VBA的大量知識，但很喜歡學習。我之前在此網站上獲得過幫助，並且非常感謝與工作相關的問題。本週開始的代碼如下，謝謝！用於在vlookup中全選的宏

ActiveCell.Select 
Sheets("Demo").Select 
Range("A2").Select 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'Listing'!R1C1:R12182C4,3,FALSE)" 
Selection.AutoFill Destination:=ActiveCell.Range("A1:A177688") 
ActiveCell.Range("A1:A177688").Select

來源

2015-03-02 shaydawn

你將不得不使用的一個主要性能問題在很多行上查找。 – guitarthrower 2015-03-02 20:18:42

你推薦什麼？還有其他功能嗎？它每週只會變得更大。 – shaydawn 2015-03-02 20:22:50

這裏沒有足夠的細節來說。 – guitarthrower 2015-03-02 20:23:50

我做了這個宏，可以爲您選擇符合你的願望的標準，這將是該選擇你的VLOOKUP函數的所有，它也會根據改變所有選定單元格的值的任何單元格你的願望，但我需要知道更多有關如何張樣子，你爲了找什麼來幫助你更好的，這裏是代碼：

Sub selectall() 

Dim rng  As String 
Dim cname As String 

cname = InputBox("Enter column you wish to run the VLOOKUP", "NAME COLLECTOR") 

'Change the "For" range as you desire to match the starting and ending line 

For i = 1 To 100 

If Range(cname & i) = "Enter what you're looking for" Then 

If rng = Empty Then 

rng = Range(cname & i).Address 

Else: 

rng = rng & "," & Range(cname & i).Address 

End If 

End If 

Next 

Range(rng).Value = InputBox("Enter the value or formula you want here", "NAME COLLECTOR") 

End Sub

來源

2015-03-03 15:33:52

用於在vlookup中全選的宏

回答

相關問題