Question

我一直在环顾四周，似乎无法找到与我相同的问题假设我有一个工作表，其中有两列数据，一列我也应用了一个过滤器，然后用它来创建工作表。我希望然后将第二列中的值粘贴到匹配的工作表

因此，如果我有列a的值为b c c d

和b列的值为流体id状态县我希望代码查看名称并将其粘贴到正确的工作表中，在此示例中，它将是工作表，用于流体，它将是工作表b等等等等

我正在考虑每个公式的a，然后循环它

Sub C2s()
Dim contr As Control
Dim RN As Range
Dim LR As Integer

LR = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
RN = Sheet3.Range("B1:B" & LR)

For Each Cell In RN
    If 

    End If
Next

End Sub

Answer 1

**编辑以修复正在分配的列范围

这是未经测试的，但应该让您了解如何循环并使用偏移列来处理您的值。 SpecialCells（xlCellTypeVisible）意味着它只会处理您选择中的过滤记录

    Dim MyCell As Range, 
Dim MyRange As Range
Dim WorksheetToCopyTo as string 
Dim LR As Integer

LR = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
Set MyRange = Sheet3.Range("A1:A" & LR)

For Each MyCell In MyRange.SpecialCells(xlCellTypeVisible)
    WorksheetToCopyTo = MyCell.offset(0,1)
    Select Case WorksheetToCopyTo
        Case "Fluid"
            <do something here>
        Case "County"
            <do something here>
    End Select
Next MyCell

根据工作表名称将单元格复制到不同的工作表

1 个答案: