根据工作表名称将单元格复制到其他工作表

Question

我一直在环顾四周，我似乎找不到同样的问题，我可以说我有一个工作表包含两列数据，一列我也应用了过滤器，然后使用它来创建工作表。 然后，我要将第二列中的值粘贴到匹配的工作表中

因此，如果我的列a的值为abccd

b列具有值名称fluid id state county我希望代码查看名称并将其粘贴到本示例中的正确工作表中，这将是流体的工作表a和工作表b，依此类推，依此类推

我在想它的每个公式，然后循环

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

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

这未经测试，但是应该让您了解如何循环并使用offset列处理值。 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