Как вставить строки данных с помощью Select Case

Question

Ошибки моего скрипта VBA при попытке вставить данные из Sheet1 в Sheet2. Код сценария предоставляет только номера строк «Случай 2-3», первый «Случай» не вводится в лист 2. Хотите знать, что еще должно быть включено в сценарий VBA для завершения процессов?

Мой сценарий VBA:

Sub CopyFromSheet1()
    Dim i As Long
    For i = 1 To Sheet1.Cells(Sheet1.Rows.Count, 6).End(xlUp).Row ' Last Cell of Column F

  Select Case CStr(Sheet1.Cells(i, 3).Value) ' Looks at the Value in Column C

    Case "Due From"
        Sheet2.Cells(22, 3).Value = Sheet1.Cells(i, 6).Value
    Case "TOTAL1"
        Sheet2.Cells(23, 3).Value = Sheet1.Cells(i, 6).Value
    Case "TOTAL2"
        Sheet2.Cells(24, 3).Value = Sheet1.Cells(i, 6).Value

    End Select


Next i


End Sub

Answer 1

Как насчет этого: вы все делаете, но только для столбца C. А затем снова делаете все это для столбца D?

Sub CopyFromSheet1()
    Dim i As Long
    Dim col as Long

    for col = 3 to 4
        For i = 1 To Sheet1.Cells(Sheet1.Rows.Count, 6).End(xlUp).Row ' Last Cell of Column F

            Select Case CStr(Sheet1.Cells(i, col).Value) 

                Case "Due From"
                    Sheet2.Cells(22, 3).Value = Sheet1.Cells(i, 6).Value
                Case "TOTAL1"
                    Sheet2.Cells(23, 3).Value = Sheet1.Cells(i, 6).Value
                Case "TOTAL2"
                    Sheet2.Cells(24, 3).Value = Sheet1.Cells(i, 6).Value

            End Select


        Next i

    next col
End Sub