VBA沿行循环

可以绕一排吗

我有一个日期的标题行，我想循环这些日期，如果其中一个日期早于今天的日期，我想执行一个操作来复制下面单元格的内容，并粘贴值以覆盖该列中的公式

我以前做过一列循环，但我真的很难沿着一行循环。任何帮助或指导都将不胜感激

---

提前感谢：）

有三种方法可以检测不同范围的细胞

1如果您知道每件衣服的尺码

   Dim r as range
   For each r in Range("A1:F1")
       'r is assigned to each cell in range above in turn
   Next r

（或者，如果用户在手之前高亮显示范围，则可以使用“选择”属性）

2或者您可以使用For Next和单元格循环

    Dim x as long
    For x = 1 to 6
     If Cells(1,x) = "Some Value" Then
     End If
    Next x

3如果你不知道结尾，只想一直到下一个空白单元格，那么使用Do循环

   Dim r as Range
   Set r = Range("A1")
   Do
      'something
       Set r = r.Offset(0,1)  'move pointer right
    Loop Until r = ""

---

希望这有帮助

是的，这是可能的。几乎相同的事情，只需更改循环中的列数并保持相同的行数。尝试一下，并向我们展示您的代码尝试：）

   Dim r as Range
   Set r = Range("A1")
   Do
      'something
       Set r = r.Offset(0,1)  'move pointer right
    Loop Until r = ""