[已解决]求助：VBA用数组合并字符

PC8888

求助：VBA用数组合并字符

最佳答案

月排行榜 / 总排行榜

爱疯

2016-2-22 15:38

Sub test()
    Dim A, i
    Sheets(1).Select
    A = Range("a1:d" & Range("b65536").End(xlUp).Row)
    For i = 1 To UBound(A)
        If InStr(A(i, 1), "编") = 0 Then A(i, 1) = A(i, 2) & A(i, 3) & A(i, 4)
    Next i
    [a1].Resize(i - 1, 4) = A
End Sub

数组合并字符2.rar (17.4 KB, 下载次数: 6)

2016-2-22 15:38 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

用公式不是很方便吗？a1=b1&c1&d1

被合并数据是怎样的特征？只是3块区域 2:4行、7行、11行吗

PC8888

爱疯 发表于 2016-2-22 15:15
用公式不是很方便吗？a1=b1&c1&d1

被合并数据是怎样的特征？只是3块区域 2:4行、7行、11行吗

用公式是很方便，但操作不当容易丢失，比较麻烦。加上数据量较多，举例中只是少部份。被合并数据是3块区域 3:5行、7：9行、11：20行，在实际应用中区域范围我自己可以改就行。

scl5801

Sub hb()
  With Application
    .ScreenUpdating = False
     arr = Sheet1.UsedRange
     For i = 1 To UBound(arr)
        If arr(i, 1) <> "编  码" Then
           arr(i, 1) = arr(i, 2) & arr(i, 3) & arr(i, 4)
        End If
     Next i
     [a2].Resize(UBound(arr), UBound(arr, 2)) = arr
     .ScreenUpdating = True
   End With
End Sub

冬日夏雨

试试看。

爱疯

Sub test()
    Dim A, i
    Sheets(1).Select
    A = Range("a1:d" & Range("b65536").End(xlUp).Row)
    For i = 1 To UBound(A)
        If InStr(A(i, 1), "编") = 0 Then A(i, 1) = A(i, 2) & A(i, 3) & A(i, 4)
    Next i
    [a1].Resize(i - 1, 4) = A
End Sub

数组合并字符2.rar (17.4 KB, 下载次数: 6)

2016-2-22 15:38 上传

点击文件名下载附件

PC8888

以上3个答案都 比较好，可惜只有1个最佳答案，实在为难我了，只能选择简单易懂的了，谢谢各位高手！