'If ... Then' 循环语句

Question

我有一个看起来很简单的应用程序，带有循环和“If..Then”语句，但在构建它时需要一些帮助。

在非常基本的例子，我在A列的列表号和值PM或AM在列B我想列出来写一个循环，将搜索B列中的每个值，直到数据集的结尾，并添加12到每个值在 A 列中，每次 B 列的值为PM。简而言之，它看起来像这样：

• 如果 B 列 = PM
• 然后添加12到 A 列中的相应单元格
• 否则向下移动到下一行并执行相同的操作，直到到达一个空单元格

Answer 1

方法有很多种，这里是一个典型的：

Sub dural()
   Dim i As Long

   i = 1
   Do While Cells(i, "B").Value <> ""
      If Cells(i, "B").Value = "PM" Then
            Cells(i, "A").Value = Cells(i, "A").Value + 12
      End If
      i = i + 1
   Loop
End Sub