用于在vlookup中选择所有的宏

时间:2015-03-02 19:57:11

标签: excel-vba vlookup vba excel

我格式化了一个大型电子表格,该电子表格每周更改一次,并将其与每周更改的数据文件进行匹配。我需要在我的vlookup中使用“全选”功能,以及“自动填充”以将公式复制到最后一行。我试过“CurrentRegion”,“table”,&用“结束”声明悲惨地失败了。由于我很少构建宏,因此我对VBA知之甚少,但确实喜欢学习。我以前在这个网站上得到过帮助,并感谢工作相关问题的节省时间。我本周开始使用的代码如下:谢谢!

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

1 个答案:

答案 0 :(得分:0)

我已经制作了这个宏,可以为你选择符合你想要的标准的任何单元格,你可以选择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