网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：279,990贴子：1,533,669
  • 20回复贴，共1页

求助贴


这种格式的文件要把它换成下面这种格式要怎么弄，求大神帮帮


有人吗？这个时间⊙﹏⊙‖


来点人来点人


来人啊




Option Explicit
Sub test()
　Dim i, arr
　arr = Range("a1:d" & [a65536].End(xlUp).Row)
　For i = 1 To UBound(arr, 1)
　　arr(i, 1) = arr(i, 1) & vbNewLine & arr(i, 3)
　　arr(i, 2) = arr(i, 2) & vbNewLine & arr(i, 4)
　Next
　[e:f].ClearContents
　[e1].Resize(UBound(arr, 1), 2) = arr
End Sub




扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 20回复贴，共1页
分享到: