기둥

Question

내 코드에있는 모든 세포에 기능을 적용하면은 선택한 셀에 대해 작동합니다. 나는 또한 행이 추가되면 작업을 계속 얻기 위해 노력하고

Sub Splitter() 

Dim i As Integer 
Dim Text As String 
Dim Item As Variant 

Text = ActiveCell.Select 
Item = Split(ActiveCell, "-") 

For i = 0 To UBound(Item) 
    Cells(3, i + 2).Value = Item(i) 
Next i 

If Range("B3").Value = "CHOP" Then 
    Range("D3").Value = "chopsticks" 
ElseIf Range("B3").Value = "NAPK" Then 
    Range("D3").Value = "napkins" 
ElseIf Range("B3").Value = "RICE" Then 
    Range("D3").Value = "white rice" 
ElseIf Range("B3").Value = "SOYS" Then 
    Range("D3").Value = "soy sauce" 
ElseIf IsEmpty(Range("D3").Value) = True Then 
    Range("D3").Value = "other" 
End If 

End Sub 

: 나는

여기까지 내 코드있다가 A 열에있는 모든 셀에 대해 작업 할.

Answer 1

데이터 마지막 ​​행까지 행 3 열부터 A의 모든 행을 통해 뜻 루프 아래 코드.

내가 대신 여러 ElseIf의 Select Case .Range("B" & LRow).Value을 사용하고 있습니다.

나는 마지막 ElseIf IsEmpty(Range("D3").Value) = True Then이 유형의 오류라고 가정하고, 당신은 ElseIf IsEmpty(Range("B3").Value) = True Then을 의미했다.

코드

Option Explicit 

Sub Splitter() 

Dim i As Integer 
Dim Text As String 
Dim Item As Variant 
Dim LastRow As Long 
Dim LRow As Long 

' modify "sheet1" to your sheet's name 
With Sheets("Sheet1") 

    ' find last row in Column A 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 

    For LRow = 3 To LastRow 

     Item = Split(.Range("A" & LRow), "-")    
     For i = 0 To UBound(Item) 
      .Cells(LRow, i + 2).Value = Item(i) 
     Next i 

     Select Case .Range("B" & LRow).Value 
      Case "CHOP" 
       .Range("D" & LRow).Value = "chopsticks" 

      Case "NAPK" 
       .Range("D" & LRow).Value = "napkins" 

      Case "RICE" 
       .Range("D" & LRow).Value = "white rice" 

      Case "SOYS" 
       .Range("D" & LRow).Value = "soy sauce" 

      Case "CHOP" 
       .Range("D" & LRow).Value = "chopsticks" 

      Case Else 
       .Range("D3").Value = "other" 

     End Select 

    Next LRow   
End With 

End Sub 

당신이 열 A에 있나요 어떤 종류의 데이터