|
本帖最后由 laoau138 于 2017-5-30 08:20 编辑
VBA多种方法连接A1 D1单元格字符
'VBA多种方法连接A1: D1单元格字符
'一共能写多少种方法
Sub 第一种方法()
Range("A6").Value = Join(Application.Transpose(Application.Transpose(Range("A1:D1").Value)), "")
End Sub
Sub 第二种方法()
[a7] = [a1] & [b1] & [c1] & [d1]
End Sub
本帖最后由 france723 于 2017-5-30 03:42 编辑
仅仅提供一个思路 :
- Sub aaa()
- Dim ar, a, b, c, d, s, n
- ar = Range("a1:d1")
- n = 6
- For Each a In ar
- For Each b In ar
- For Each c In ar
- If b <> a And a <> c And b <> c Then
- For Each d In ar
- If d <> a And d <> b And d <> c Then
- s = d
- End If
- Next d
- Cells(n, 1) = a & b & c & s
- Cells(n, 2) = "第" & n - 5 & "种"
- n = n + 1
- End If
- Next c
- Next b
- Next a
- End Sub
复制代码
|
|