数组问题

金樽邀月

      各位大师请教下，关于数组的使用，就像For与Next,If与End If,Do与Loop必须匹配出现，这是强制的，没有匹配出现会报错。在使用数组的时候，最后的 = arr 是不是一定要有，可不可以省略？我在使用数据的时候，不写 = arr，不会提示出错，但写了= arr，原有的数据会遭到破坏，一些数据格式会变成科学计数。
      问题1，如果不写= arr,是不是没有任何影响？
      问题2，如果要写=arr,怎么让数据保留原有格式不遭到破坏？
Sub 数组测试()
      lr = Cells(Rows.Count,1).End(3).Row
      arr = Range("A2:C" & lr)
     Range("A2:C" & lr) = arr
End Sub

ykcbf1100

如果数组不需要写入工作表，那=arr就不用写；否则，=arr就得写。
至于数组写回时格式会变化的问题，可以在写入数组前先设置一下列的格式。

tanglf188

写数组前先保留格式，写完了再写一次格式

金樽邀月

ykcbf1100 发表于 2024-5-21 10:15
如果数组不需要写入工作表，那=arr就不用写；否则，=arr就得写。
至少数组写回时格式会变化的问题，可以在 ...

Sub 数组测试()
lr = Cells(Rows.Count, 1).End(3).Row
arr = Range("A2:C" & lr)
Range("B2:C" & lr).NumberFormatLocal = "@"
Range("A2:C" & lr) = arr
End Sub
谢谢大师提醒，写回前先设置格式，就不受影响了