求助各位老师，这种如何改成输出为文本格式的呢

wjs521

已经解决

wjs521

因为之前输出的格式为常规格式 ，导致输出后  前面有0的数字都被省去，这样数字位数也不完整
所以希望直接输出文本格式

ykcbf1100

Sub zz()
Dim a(1 To 100, 1 To 800)
For i = 1 To 100
    For j = 1 To 800
        a(i, j) = Application.WorksheetFunction.RandBetween(0, 9999999)
    Next
Next
ActiveSheet.Columns(”a:adt").NumberFormatLocal = "@"
[a1:ADT800] = a
End Sub

无关岁月

sunya_0529

wjs521 发表于 2024-8-22 12:42
因为之前输出的格式为常规格式 ，导致输出后  前面有0的数字都被省去，这样数字位数也不完整
所以希望直接 ...

如下图所示——

wjs521

无关岁月 发表于 2024-8-22 12:50

非常感谢！

wjs521

sunya_0529 发表于 2024-8-22 12:58
如下图所示——

谢谢你     老师

wjs521

sunya_0529 发表于 2024-8-22 12:58
如下图所示——

老师  我修改了一下  我的为什么运行不了呢

sunya_0529

wjs521 发表于 2024-8-22 13:23
老师  我修改了一下  我的为什么运行不了呢

截图或者上个附件看看~