我有一个 Excel 文件，其中有记录，我想根据特定的列条件过滤这些记录。并且这些记录应该根据标准复制到其他多个工作表中。随着数据在主表中更新，数据也应该在相应的标准表中更新。
我已经尝试过使用“获取数据”=>“来自其他来源”=>“来自 Microsoft Query”的 Excel。下面我附上了图片。但是随着数据点的增加，它无法正常执行。如果在 MACRO 或 VBA 的帮助下可能有任何其他方式，请提供帮助。据我所知，上述内容类似于 SQL 查询并使用 WHERE 子句。
下面我附上了标准列是“位置”的图像，对于示例，我根据位置创建了工作表
以下是错误信息：
【问题讨论】：
标签： sql excel vba where-clause criteria
这是我最近创建的一个代码，大约有 1 个。这个结果：
Private Sub CommandButton1_Click()
Dim i As Integer
Dim wn As String, col As String, col1 As Integer
Worksheets("Master").Columns("A:A").Replace What:="", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Worksheets("mod").Visible = True
Worksheets("Master").Rows(1).Copy
Worksheets("mod").Activate
Worksheets("mod").Cells(1, 1).Select
ActiveSheet.Paste
Worksheets("Master").Select
wn = InputBox("Criteria", "Criteria")
col = InputBox("Specify column", "Main sheet")
col1 = Columns(col).Column
lastrow = Worksheets("Master").Cells(Rows.Count, 1).End(xlUp).Row
With ThisWorkbook
.Worksheets("mod").Copy after:=.Sheets(.Sheets.Count)
ActiveSheet.Name = wn
End With
For i = 2 To lastrow
If Worksheets("Master").Cells(i, col1) Like "*" & wn & "*" Then
Worksheets("Master").Rows(i).Copy
Worksheets(wn).Activate
erow = Worksheets(wn).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Worksheets(wn).Cells(erow, 1).Select
ActiveSheet.Paste
Worksheets(wn).Columns("A:ZZ").AutoFit
Worksheets("Master").Activate
End If
Next i
Application.CutCopyMode = False
Worksheets("mod").Visible = False
Worksheets("Master").Columns("A:A").Replace What:=" ", Replacement:="",LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
On Error Resume Next
End Sub
希望对您有所帮助并等待您的反馈！如果需要更多信息，请随时与我联系！
【讨论】：
@Spandan 溃败 嗨，只需在第一张表中创建一个按钮并将此代码复制到 VBA 窗口中 创建一个名为“mod”的工作表（没有数据的空白工作表） 确保工作表“master”也可用......就是这样！ 对于“标准”，请使用位置名称（波士顿、新德里、...） 对于“指定列”，在列 (A,B,C,...) 中键入，其中条件位于 (D 在本例中)
【讨论】：