☰

Excel에서 VBA를 사용하여 이 기능을 어떻게 실행할 수 있나요?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 worksheet-function microsoft-excel-2007 vba
Excel에서 VBA를 사용하여 이 기능을 어떻게 실행할 수 있나요?

VBA에서 이 기능을 사용하려고 하는데 처음 사용합니다. 이 작업을 어떻게 수행할 수 있는지 모르는 것 같습니다.

내가 하려는 것은 숫자인 B열의 각 셀에 대해 H열의 다음 두 셀을 가져오고 싶습니다. 즉 B7인 경우 H8과 H9(H의 다음 두 행 값)을 가져오고 싶습니다. 열)을 연결하고(문자열임) I7(B7과 동일한 행)에 저장한 다음 마지막으로 H8,H9의 값을 삭제합니다.

내가 도착한 곳은 여기입니다. 그다지 많지 않다는 것을 압니다.

Private Sub CommandButton1_Click()
Dim B As Range, H As Range, I As Range
For Each B In ClientTable.Columns(2).Cells
    If IsNumeric(B) Then
    (What should be done here?)    
    End If
Next B
End Sub

답변1

나는 IsNumeric(B)빈 셀에 대해 사실임을 알았으므로 이에 따라 귀하의 진술을 변경했습니다 If. 이것은 나에게 효과적이었습니다.

    If IsNumeric(B) And B <> "" Then
        Cells(B.Row, 9) = Cells(B.Row + 1, 8) & Cells(B.Row + 2, 8)
        Cells(B.Row + 1, 8) = ""
        Cells(B.Row + 2, 8) = ""
    End If
    If B.Row > 9 Then Exit For

분명히 8및 는 각각 및 9의 열 번호입니다 . 나는HI

If B.Row > 9 Then Exit For

루프가 종료되지 않는 문제가 있었기 때문입니다. 만약에

For Each B In ClientTable.Columns(2).Cells

당신에게 적합하다면 If B.Row > 9 Then Exit For.

관련 정보