根據工作表名稱將單元格復制到其他工作表

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