[已解决]一个转置复制的VBA

ycb20010823

想把A1：A7的内容复制到H1单元格中，用逗号“，”分开，想要这样一小段VBA代码，请各位老师帮助一下，谢谢！！

想达到的效果如图

最佳答案

月排行榜 / 总排行榜

爱疯

2016-10-9 08:46

Sub test()
    Dim A
    A = Range("a1").CurrentRegion
    A = Application.Transpose(A)
    [H2] = Join(A, ",")
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A
    A = Range("a1").CurrentRegion
    A = Application.Transpose(A)
    [H2] = Join(A, ",")
End Sub

dsmch

1. Sub Macro1()
   
2. w = [a1:a7]
   
3. ww = Application.Transpose(Application.Index(w, 0, 1))
   
4. MsgBox Join(ww, "，")
   
5. End Sub

复制代码

gufengaoyue

1. MsgBox Join(Application.Transpose([a1:a7]), ",")

复制代码

苏子龙

网上有个自定义函数，很实用，自己百度contxt

ycb20010823

苏子龙 发表于 2016-10-9 11:32
网上有个自定义函数，很实用，自己百度contxt

找到了，非常好用，就是不知道速度咋样，在VBA中运行时？
现把找到的代码，发到这里，大家共享一下

Public Function Contxt(ParamArray args() As Variant) As Variant
Dim tmptext As Variant, i As Variant, Cellv As Variant
Dim Cell As Range
tmptext = ""
For i = 0 To UBound(args)
    If Not IsMissing(args(i)) Then
        Select Case TypeName(args(i))
            Case "Range"
                For Each Cell In args(i)
                    tmptext = tmptext & Cell
                Next Cell
            Case "Variant()"
                For Each Cellv In args(i)
                    tmptext = tmptext & Cellv
                Next Cellv
            Case Else
                tmptext = tmptext & args(i)
        End Select
    End If
Next i
Contxt = tmptext
End Function





您的朋友 杨春宝 为这封邮件插入了背景音乐 - [url=]下载[/url]  [url=]播放[/url]

播放器加载中...
正在发送...

此邮件已成功发送。[url=]再回一封[/url]

快捷回复给：杨春宝

[url=]切换到完整写信模式[/url]




[url=]发送[/url]