网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,872贴子：1,544,398
  • 23回复贴，共1页

新手求指点VBA

如图，我想通过宏，把一个Sheet中的B列（所有包含的数据），复制到另一个Sheet的合并单元格中
撇开宏，正常的做法是转置这列，然后贴到一个TXT文档中，然后复制TXT文档数据，再次粘贴到这个合并单元格中。
我试了很多遍，通过录制这点做不到，因为B列的数据不知道有多少行，且即使固定行数，也有会数字连在一起没有空格的问题。
我想了一圈，只想到在一个单元格里做B列和一个“空格单元格”的&函数，然后再贴近去，这样的思路是否有问题？
并非伸手党，实在是没有代码基础，百度搜一大圈，真心找不着解决方法，求大神指点一下，如果有资源，有没有代码基础的传送门私我，对这个东西很有兴趣，嘿嘿






一个for循环加连接下，然后赋值给合并单元格


有函数可以用为什么要用VB？试一试phonetic


设置格式为文本旁边插入一列全部“Excel”，函数连接后查找“Excel”替换为空格


剪贴板粘贴到一个单元格，换行符替换为空格


Sub ccp()
'
'
'
For i = 1 To 100
Cells(i, 1) = "'" & Cells(i, 1)
Next
Range("b1").Select
ActiveCell.FormulaR1C1 = "=PHONETIC(RC[-1]:R[100]C[-1])"
Range("A1").Select
End Sub


要有空格
Sub ccp()
'
'
'
For i = 1 To 100
Cells(i, 1) = "'" & Cells(i, 1) & " "
Next
Range("b1").Select
ActiveCell.FormulaR1C1 = "=PHONETIC(RC[-1]:R[100]C[-1])"
End Sub


16版，textjoin完美解决


复制数据，从剪贴板粘贴，替换换行符为空格
操作完毕


不知道B列最后一个数据的位置，这个可以用代码找。如
rowendB=range("B" & rows.count).end(xlup).row
然后复制这部分数据就可以了range("B2:B" & rowendb).copy
接着粘贴到你要放数据的第一个单元格，如
sheet2.range("B2").pastespecial xlpastevalues


你是想学VBA代码还是为了解决上图中的问题，如果单纯是为了解决问题，只需要简单的操作技巧就可以秒解决，无需代码的。


扫二维码下载贴吧客户端

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