Excel上的Visual Basic：遍历行列表

我有一个下面的代码模式。 它遍历第1,3和25行。没有模式。 我想知道如果我可以压缩这样的代码，我可以将这些行号存储在列表中，并基于该列表迭代for循环。 请注意，对于每一行，只考虑一列的范围。

Dim rng As Range, cl As Range Set rng = ActiveSheet.Range("A3:A10") For Each cell In rng cell.NumberFormat = "ddMMMyyyy" Next cell Set rng = ActiveSheet.Range("C3:C10") For Each cell In rng cell.NumberFormat = "ddMMMyyyy" Next cell Set rng = ActiveSheet.Range("Y3:Y10") For Each cell In rng cell.NumberFormat = "ddMMMyyyy" Next cell 

Answer 1

不需要循环。 你可以凝聚成一条线

 Range("A3:A10,C3:C10,Y3:Y10").NumberFormat = "ddMMMyyyy"