VBA用逗号连接数字和条件

laoau138

VBA用逗号连接数字和条件

wanao2008

祝您好运：

1. Sub wanao()
   
2.     Dim x As Integer, y As Integer, a As Integer
   
3.     Dim str As String, s(1 To 2) As String
   
4.     s(1) = "/0~1~2~3~4"
   
5.     s(2) = "/0~1~2~3"
   
6.     For x = 1 To 3
   
7.         a = 0
   
8.         str = ""
   
9.         For y = 1 To 13
   
10.             If Cells(x, y) <> "" Then a = a + 1 Else Exit For
    
11.             If str = "" Then str = Cells(x, y) Else str = str & "," & Cells(x, y)
    
12.         Next
    
13.         If a > 10 Then str = str & s(1) Else str = str & s(2)
    
14.         Cells(x, "n") = str
    
15.     Next
    
16. End Sub

复制代码

laoau138

wanao2008 发表于 2016-9-11 21:07
祝您好运：

这个没有那么容易，

刚有人写了自定函数，

Function 连接(RNG As Range)
x = Application.Count(RNG)
arr = Application.Transpose(Application.Transpose(RNG(1).Resize(, x)))
连接 = Join(arr, ",") & "/0~1~2~3" & IIf(x > 10, "~4", "")
End Function

d346836673

wanao2008 发表于 2016-9-11 21:07
祝您好运：

高手啊

wanao2008

d346836673 发表于 2016-9-12 07:55
高手啊

一直在学习，一直在努力！加油！！