[已解决]求用VBA直接把A列转成B列效果？也就是A列内容全部转成文本。

pangwen_822

求用VBA直接把A列转成B列效果？也就是A列内容全部转成文本。注意啊！直接在A列中转换啊！如B列黄色部分，也是要转换的原因。

附件： FIU.zip (3.31 KB, 下载次数: 21)

2012-2-4 10:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

windimi007

2012-2-4 10:43

不知道是否符合要求？请测试！

1. Sub aa()
   
2.     Dim arr
   
3.     Dim i&
   
4.     arr = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 1) = "'" & arr(i, 1)
   
7.     Next i
   
8.     Cells(2, 1).Resize(UBound(arr)) = arr
   
9. End Sub

复制代码

跳转到最佳答案楼层

windimi007

不知道是否符合要求？请测试！

1. Sub aa()
   
2.     Dim arr
   
3.     Dim i&
   
4.     arr = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 1) = "'" & arr(i, 1)
   
7.     Next i
   
8.     Cells(2, 1).Resize(UBound(arr)) = arr
   
9. End Sub

复制代码

pangwen_822

windimi007 发表于 2012-2-4 10:43
不知道是否符合要求？请测试！

谢谢！也谢谢这个论坛、、、、

pangwen_822

windimi007 发表于 2012-2-4 10:43
不知道是否符合要求？请测试！

呵呵！我动作也太快了，一下子就回复了你，你改变了A列了内容，也就是在每格内容前加了一个道号，我要变成文本原因是别的地方是文本，A列不是文本，就不能对应寻找，多了一个道号更不能寻找了！

windimi007

pangwen_822 发表于 2012-2-4 11:40
呵呵！我动作也太快了，一下子就回复了你，你改变了A列了内容，也就是在每格内容前加了一个道号，我要变 ...

多个单引号和你查找应该没有任何关系吧！你测试一下，如果发现有问题，还望上传附件说明情况。

pangwen_822

windimi007 发表于 2012-2-4 11:44
多个单引号和你查找应该没有任何关系吧！你测试一下，如果发现有问题，还望上传附件说明情况

谢谢！可以了！刚才不知什么原因不行