아래의 내 코드는 열 S 및 T 셀이 비어 있는지 확인합니다. 셀이 비어 있으면 공백이 될 수 없다는 텍스트가 U 열에 들어갑니다. 내 문제는 셀이 한 번에 하나의 문자열을 취할 수 있다는 것입니다. 단일 셀에서 문자열을 연결하는 방법을 찾고 있습니다. 도와주세요. 감사.
내 코드 :
For pos2 = 1 To .UsedRange.Rows.Count + 1 Step 1
If (IsEmpty(.Cells(pos2, "S").Value) = True) Then
.Cells(pos2, "U").Value = "Description can't be blank"
End If
If (IsEmpty(.Cells(pos2, "T").Value) = True) Then
.Cells(pos2, "U").Value = "Criteria can't be blank"
End If
Next pos2
a String
를 사용하여 "U"열에 작성하려는 오류 유형을 저장할 수 있습니다 .
Dim ErrStr As String
With Sheets("Sheet1")
For pos2 = 1 To .UsedRange.Rows.Count + 1 Step 1
ErrStr = "" ' reset the error string for each row
If IsEmpty(.Cells(pos2, "S").Value) Then
ErrStr = "Description can't be blank"
End If
If IsEmpty(.Cells(pos2, "T").Value) Then
' just to make it clearer
If ErrStr <> "" Then
ErrStr = ErrStr & " ; "
End If
ErrStr = ErrStr & "Criteria can't be blank"
End If
.Cells(pos2, "U").Value = ErrStr
Next pos2
End With
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다