|
fengdavid 发表于 2013-4-4 21:10
刚才复习这个代码的时候发现一个问题,当单元格内的文本为多个字符时,它会把文本分拆开,比如A2=123,那 ... - Sub test2()
- Dim arr
- Dim str$
- Dim i As Byte, j As Byte
- Dim lastCol As Byte
- arr = Range("a1:g10")
- Dim k As Byte
- k = UBound(arr, 2)
- For i = 1 To UBound(arr)
- lastCol = 1
- For j = LBound(arr, 2) To UBound(arr, 2)
- If Len(arr(i, j)) > 0 Then
- Do While lastCol < j
- If Len(arr(i, lastCol)) = 0 Then
- arr(i, lastCol) = arr(i, j)
- arr(i, j) = ""
- lastCol = lastCol + 1
- Exit Do
- End If
- lastCol = lastCol + 1
- Loop
- End If
- Next
- Next
- Stop
- Range("a1:g10") = arr
- End Sub
复制代码 |
|