셀 범위 확인 및 해당 열의 데이터가 포함 된 셀 추가

Question

셀 범위 값 확인 [예 : C1 : E5] 셀에 값 포함 해당 행 찾기 [말 행 -4] 셀 추가 [말 B6 ]와 셀의 데이터 및 해당 행 데이터를 비교합니다. 일

Answer 1

Sub Demo() 
    Dim str As String 

    str = "" 

    For Each cel In Range("C1:E5") 
     If Not IsEmpty(cel) Then 
      If str = "" Then 
       str = Range("B" & cel.Row) & "=" & cel.Value 
      Else 
       str = str & ", " & Range("B" & cel.Row) & "=" & cel.Value 
      End If 
     End If 
    Next 

    If str <> "" Then Range("B6") = str 
End Sub 

Answer 2

Sub test() 

    Dim rng As Range 
    Dim tmp As String 

    Set rng = Range("C1:E5") 

    For Each cell In rng 
     If cell.Value <> "" Then 
      tmp = tmp + " " + Cells(cell.Row, 2).Value + " = " + cell.Value 
     End If 
    Next cell 

    Range("B6").Value = tmp 

End Sub