[已解决]VBA把这个代码改写数 关于字符串连接

laoau138

VBA把这个代码改写数   关于字符串连接

最佳答案

月排行榜 / 总排行榜

france723

2017-5-30 19:41

你附件里不是有代码? 什么鬼???
改写数组的话, 很简单, 思路都不用变, 数组元素位置想成平面直角坐标系就可以代替Cells.
自己去尝试写一次比看别人写十次都有用

跳转到最佳答案楼层

france723

你附件里不是有代码? 什么鬼???
改写数组的话, 很简单, 思路都不用变, 数组元素位置想成平面直角坐标系就可以代替Cells.
自己去尝试写一次比看别人写十次都有用

laoau138

Sub 把这个代码改写数组()
Dim arr, i&, j&, c, m
arr = [a2:o7]
ReDim brr(1 To 6)
For i = 1 To 6
    c = ""
    m = 0
    For j = 1 To 15
        If arr(i, j) <> "" Then
           c = c & "，" & arr(i, j)
           m = m + 1
        End If
    Next
    If m <= 6 Then
       brr(i) = Right(c, Len(c) - 1) & "/0~1~2~3"
    Else
       brr(i) = Right(c, Len(c) - 1) & "/1~2~3"
    End If
Next
    [q2:q7] = Application.Transpose(brr)
End Sub

laoau138

france723 发表于 2017-5-30 19:41
你附件里不是有代码? 什么鬼???
改写数组的话, 很简单, 思路都不用变, 数组元素位置想成平面直角坐标系就 ...

VBA对不同单元格颜色数据分类汇总


http://www.excelpx.com/thread-430736-1-1.html