Question

Excel宏的新手，试图为我的工作找到一些东西！任何帮助非常赞赏！

我正在尝试创建一个宏来选择表，列，和行过滤时，全部基于细胞标准。

因此在Sheet1中，如果有人在单元格A1中将工作表名称“Sheet6”键入单元格，将列标题“col_B”键入单元格A2，并将过滤条件“存入”单元格A3，则宏将查看“Sheet6” ，找到标题为“col_B”的列，并使用文本“banks”过滤所有行。这可能吗？

提前感谢您的帮助！

Answer 1

你可以适应这个：

monorepo/subdir/foo/README.txt

Answer 2

我使用其他工作簿中的代码非常接近。我不完全理解其他代码，因为我从谷歌搜索中获得了一些代码。这段代码唯一不做的就是引用该列（该R1变量应该是，但我不知道如何将它放入）。很多看起来与Gary的学生的帖子相似。而且我确信有信息可以使这项工作成功。所以，再次感谢Gary的学生！

Sub Filter_Stuff（）

Dim r As Range， Dim strName As String， Dim R1 As String， Dim s2 As Worksheet，s1 As Worksheet，sA As Worksheet

Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")


strName = Range("C5")
Set sA = Sheets(strName)

R1 = s2.Range("C6")

Set r = sA.Range("1:1").Find(What:=s2.Range("C6").Value, After:=sA.Range("A1"))

r.AutoFilter Field:=1, Criteria1:=s2.Range("C7").Value

End Sub

宏，用于根据单元格条件选择要过滤的工作表，列和行

2 个答案: