|
发表于 2016-1-25 13:11
|
显示全部楼层
本楼为最佳答案
- Sub text()
- s = "shuju"
- On Error Resume Next
- arr = Range("b10:i" & [i65536].End(3).Row)
- For j = 1 To UBound(arr, 2) - 1
- xstr = ""
- For i = 1 To UBound(arr)
- If arr(i, j) <> "" Then xstr = arr(i, j)
- If arr(i, UBound(arr, 2)) <> "" Then
- If j = 1 Then
- p = p + 1
- arr(i, j) = Val(xstr) + p
- ElseIf j = 7 Then
- k = k + 1
- m = (k - 1) \ 2 + 1
- n = (k - 1) Mod 2 + 1
- arr(i, j) = s & m & n
- Else
- arr(i, j) = xstr
- End If
- End If
- Next
- Next
- Range("b10:i" & [i65536].End(3).Row) = arr
- End Sub
复制代码 |
|