워크 시트 이름을 기준으로 다른 워크 시트에 셀 복사

나는 주위를 둘러 보았고 내가 갖고있는 질문과 같은 맛을 느낄 것 같습니다 데이터의 한 열에 두 개의 열이있는 워크 시트가 있다고 말하면 필터를 적용합니다 너무 그것을 사용하여 워크 시트를 만드십시오. 나는 내가 한 값이 워크 시트 이름을 기준으로 다른 워크 시트에 셀 복사

을 abccd 및 열 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

출처

2014-12-18 Kevin

에 필터링 된 레코드를 처리합니다 꽤 많은 "예", 루프 필터링 된 값을 통해 내부 루프는 선택 케이스 값 옵션을 사용하여 의미 각 값에 대해 원하는 다른 동작을 수행하려면 –

어떻게 워크 시트 이름을 참조하고 인접한 셀을 복사합니까? '각 셀에 대해 Rn 셀렉트 케이스에 Is = "시트 이름"적절한 워크 시트에 인접한 셀을 복사합니다. – Kevin

** 할당되는 열 범위를 수정하기 위해 편집 됨

이것은 테스트되지 않았지만 오프셋 열을 루프 처리하고 값을 처리하는 방법에 대한 아이디어를 제공해야합니다. 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

출처

2014-12-18 17:38:54

워크 시트 이름을 기준으로 다른 워크 시트에 셀 복사

답변

관련 문제