像表里那樣,名字的第一個格式都是:房間號-D1,然后我都是按照埠數量一個一個拖動,因為一張表有幾百上千行,所以想請教一下有沒有什么方法可以快速生成這些資料
uj5u.com熱心網友回復:
Sub test()
Dim i As Long
Dim row As Long
row = 2
With Application.ActiveSheet
Do While .Cells(row, 1).Text <> ""
For i = 1 To Val(.Cells(row, 2).Text)
.Cells(row, i + 2) = .Cells(row, 1).Text & "-D" & i
Next
DoEvents
row = row + 1
Loop
End With
End Sub
uj5u.com熱心網友回復:
參考 1 樓 脆皮大雪糕的回復:
Sub test()
Dim i As Long
Dim row As Long
row = 2
With Application.ActiveSheet
Do While .Cells(row, 1).Text <> ""
For i = 1 To Val(.Cells(row, 2).Text)
.Cells(row, i + 2) = .Cells(row, 1).Text & "-D" & i
Next
DoEvents
row = row + 1
Loop
End With
End Sub
可以了,謝謝,省了我很多時間
uj5u.com熱心網友回復:
參考 2 樓 0距離的遙遠 的回復: Quote: 參考 1 樓 脆皮大雪糕的回復:
Sub test()
Dim i As Long
Dim row As Long
row = 2
With Application.ActiveSheet
Do While .Cells(row, 1).Text <> ""
For i = 1 To Val(.Cells(row, 2).Text)
.Cells(row, i + 2) = .Cells(row, 1).Text & "-D" & i
Next
DoEvents
row = row + 1
Loop
End With
End Sub
可以了,謝謝,省了我很多時間
那就結貼啊
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/30177.html
標籤:VBA
上一篇:專案微管理40 - 第一
下一篇:用vbs把excel的一個sheet1里的資料原樣復制到另一個excel中的sheet1中 求vbs腳本