[已解决]连接字符串，不能变为科学记数法

wenwen000424

将第一行多列数据（列数不固定）去掉字母a后用“,”拼接起来，不能变为科学记数法。
求助.rar (1.93 KB, 下载次数: 11)

2013-1-8 07:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

chin15

2013-1-8 08:43

1. Private Sub CommandButton1_Click()
   
2. x = Join(Application.Transpose(Application.Transpose(Range([b1], [iv1].End(1)))), ",")
   
3. [b2].NumberFormatLocal = "@"
   
4. [b2] = Replace(x, "a", "")
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

490540970

Private Sub CommandButton1_Click()
Dim str1, str2 As String
[b2] = ""
For i = 2 To Sheet1.UsedRange.Columns.Count
str1 = Application.WorksheetFunction.Substitute(Range(Cells(1, i), Cells(1, i)).Value, "a", "")
str2 = str1 & "," & str2
Next
[b2] = "'" & Left(str2, Len(str2) - 1)
End Sub

wenwen000424

490540970 发表于 2013-1-8 08:11
Private Sub CommandButton1_Click()
Dim str1, str2 As String
= ""

谢谢帮助，能否不加“ ‘ ”号？

chin15

1. Private Sub CommandButton1_Click()
   
2. x = Join(Application.Transpose(Application.Transpose(Range([b1], [iv1].End(1)))), ",")
   
3. [b2].NumberFormatLocal = "@"
   
4. [b2] = Replace(x, "a", "")
   
5. End Sub
   

复制代码

490540970

wenwen000424 发表于 2013-1-8 08:25
谢谢帮助，能否不加“ ‘ ”号？

不加的话就要事先定义B2为文本格式,要不就成科学计数法了的