代码求助~~

Hjfvba66

这段代码有什么问题吗？为什么会在简单的表里没有问题，数据多的表就报错~~类型不匹配~

Sub 手动换行()
Dim i, j As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    For j = 1 To ActiveSheet.UsedRange.Rows.Count
    a = Cells(i, j).Value
    Cells(i, j).Value = Chr(10) & a & Chr(10)
Next
Next
End Sub

VBA小虫子

Integer 数据类型

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。

超过了吗？

王宪

正解

Hjfvba66

VBA小虫子 发表于 2021-4-16 13:08
Integer 数据类型

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。 ...

我改成Long也是一样的错误..

Hjfvba66

王宪 发表于 2021-4-16 14:31
正解

老哥，改成long也不行，求解

王宪

Hjfvba66 发表于 2021-4-16 15:26
老哥，改成long也不行，求解

数据多是什么概念，何不上传一个数据多的附件

Hjfvba66

多倒是不算多，就13列600行数据，但是可能有些单元格里字数比较多，就是想在自适应行高之后让每一个单元格的内容上下之间还能有一定的留白间隙，所以弄了这个代码

VBA小虫子

要看具体的错误原因，代码需调试

cutecpu

注音紅色的部份

For i = 1 To ActiveSheet.UsedRange.Rows.Count
    For j = 1 To ActiveSheet.UsedRange.Columns.Count
    a = Cells(i, j).Value
    Cells(i, j).Value = Chr(10) & a & Chr(10)
Next
Next

祝順心，南無阿彌陀佛！