- 帖子
- 97
- 主題
- 26
- 精華
- 0
- 積分
- 158
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- taichung
- 註冊時間
- 2010-9-12
- 最後登錄
- 2019-8-29
|
回復 10# lionliu
這是我是做的程式碼，不知是否有哪位大個可以告訴我要如何修改- Sub inv()
- '
- Dim i, j, k, rcnt As Integer
- Dim myArray() As String
- rcnt = Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
- For i = 5 To rcnt
- myArray = Split(Sheets(1).Cells(i, 3), vbLf)
- 'j = i + 6
- For j = 0 To UBound(myArray)
- Sheets(2).Cells(i, 3).Value = myArray(j)
- Next j
- k = i + j
- Sheets(2).Cells(k, 1) = Sheets(1).Cells(i, 1)
- Sheets(2).Cells(k, 7) = Sheets(1).Cells(i, 7)
- Sheets(2).Cells(k, 8) = Sheets(1).Cells(i, 8)
- Next i
- End Sub
|
|
發表於 2015-8-13 15:11
| 