昨天这段代码在拆分的时候把原本是文本的单元格都变成数字了。拆分后...
发布网友
发布时间：2024-09-17 07:12
共1个回答
热心网友
时间：2024-09-29 04:45
哪一列啊，把这一段改掉就是了
For k = 1 To UBound(brr)brr(k) = Arr(i, k)
Next
改为
For k = 1 To UBound(brr)
if k=5 then
brr(k)="'" & arr(i,k) '如果是第5列为文本型数字。
else
brr(k) = Arr(i, k)
end if
Next
