Sub 按钮1_单击()
Cells(1, 1).ClearContents
For i = 1 To 5000
Cells(1, 1) = Cells(1, 1) & "a"
Next
End Sub
我这个程序中,5000个没问题,再用len(a1)量一下,也是5000.
"一个单元格最多能输入25944个字符，即12972个汉字",这句话我没有测试,因为代码循环25944次,要的是时间.
你有时间和你的电脑足够高档的话,就测试一下,只要把for i=1 to 5000改为for i=1 to 25944
答：打开Excel 格式进入 单元格 对齐里有缩小字体填充详情>>
