代码错误求助

hdbk

目标：
在A列单元格中有数据，需要将A中的数据按照从上到下每个单元格连接起来，但是每个单元格的值之间用“逗号”（,）连接起来且放在B列中。现在我写了一段代码，如果A列是文本比如字母的时候，以及是简单的数字是可以实现的，但是如果A列是比较长的数字，却在B2这个单元格中出现了错误。请大神帮忙看看代码哪里有问题？需要怎么修改？

Sub whyn()
Dim i%
For i = 1 To Range("A1048576").End(xlUp).Row
If i = 1 Then Cells(i, 2) = Range("a1")
If i > 1 Then Cells(i, 2) = Cells(i - 1, 2) & "," & Cells(i, 1)
Next
End Sub


需要实现的结果见下截图


如果A列数据为8位数的数字，代码运行导致B2开始有些问题，见下截图：

错误结果

案例1.zip (13.45 KB, 下载次数: 3)

2018-2-12 22:51 上传

点击文件名下载附件
案例及代码

hdbk

补充需要达到的效果图片

周总

1.代码没问题，你这个一看就是科学计数了，你先将单元格设置为[文本]就行了

pzxzhy

Sub whyn()
Dim i%
For i = 1 To Range("A1048576").End(xlUp).Row
    If i = 1 Then Cells(i, 2) = f(Range("a1"))
    If i > 1 Then Cells(i, 2) = Cells(i - 1, 2) & "," & f(Cells(i, 1))
Next
End Sub

Function f(x)
    Select Case IsNumeric(x)
        Case True
            f = Str(x)
        Case False
            f = x
    End Select
End Function

taller

逗号连接，Excel会认为结果是个很大的数字，因此转换成科学计数法，如果用其他分隔号，就没有这个问题

1. 
   
2. Sub whyn1()
   
3. Dim i%
   
4. For i = 1 To Range("A1048576").End(xlUp).Row
   
5. If i = 1 Then Cells(i, 2) = Range("a1")
   
6. If i > 1 Then Cells(i, 2) = Cells(i - 1, 2) & "|" & Cells(i, 1)
   
7. Next
   
8. End Sub

复制代码

如果一定要用逗号连接，就转换为文本型数字

1. Sub whyn()
   
2. Dim i%
   
3. For i = 1 To Range("A1048576").End(xlUp).Row
   
4. If i = 1 Then Cells(i, 2) = "'" & Range("a1")
   
5. If i > 1 Then Cells(i, 2) = "'" & Cells(i - 1, 2) & "," & Cells(i, 1)
   
6. Next
   
7. End Sub
   
8. 
   

复制代码

欧阳林2015

‘你不用要数字格式那就转换为文本格式

一指禅62

先定义B列格式为文本格式再赋值。测试中，我想用数组赋值提高速度，但在字符串长度大于256个字符时出错，故放弃了。

1. Sub 数据整理()
   
2.     Dim Row&, i&, s$
   
3.     Row = Sheet1.Range("A1").CurrentRegion.Rows.Count
   
4.     Sheet1.Select
   
5.     Range("B:B").NumberFormatLocal = "@"
   
6.     For i = 1 To Row
   
7.         s = IIf(s = "", Cells(i, 1), s & "," & Cells(i, 1))
   
8.         Cells(i, 2) = s
   
9.     Next
   
10. End Sub

复制代码

一指禅62

案例11.rar (16.2 KB, 下载次数: 0)

2018-2-13 09:34 上传

点击文件名下载附件

hdbk

多谢各位！