- 帖子
- 12
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Xp
- 閱讀權限
- 20
- 註冊時間
- 2017-12-26
- 最後登錄
- 2019-5-21
|
2#
發表於 2017-12-28 00:26
| 只看該作者
回復 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
|
|
