carloslin0316

¦^´_ 1# myfbee


    Private Sub CommandButton1_Click()
Dim row As Integer
Dim col As Integer
Dim count1 As Integer

For count1 = 1 To 10
    For row = 1 To 100
        For col = 5 To 100
            str1 = "Input " & count1
            If (Cells(row, col) = str1) Then
                For number1 = 1 To Cells(row + 5, col + 2)
                    startrow = Range("A3").End(xlDown).row + 1
                    Cells(startrow, 1) = Cells(row + 2, col + 2)
                    Cells(startrow, 2) = Cells(row + 3, col + 2)
                    Cells(startrow, 3) = Cells(row + 4, col + 2)
                    Cells(startrow, 4) = number1
                Next
            End If
        Next
    Next
Next

End Sub

¤U¸ü (108.46 KB)

2017-12-28 00:26