小编Use*_*own的帖子

我正在更新基于可用性代码的容量表.特定范围内的可用性代码具有相同的容量(少数例外).每个可用性代码都列在"F"列中.相关容量将列在"I"列中.

该代码的目标是:

• 读取单元格"F"中的可用性代码 - 可以是300-799中的任何nnn
• 确定它下降的范围 - 300-499,500-599,600-699,700-799,除了762,763,764,765,768例外
• 在单元格"I"中分配容量 - 当前正在使用 Row.Offset

• 迭代一行并用数据重复到最后一个"F"单元格

  Sub Capacity()
  
  Dim ACNum As Range
  Dim WB As Workbook
  Dim WS As Worksheet
  
  Set WB = ActiveWorkbook
  Set WS = WB.ActiveWorksheet
  Set ACNum = WS.Range("F:F")
  
  For Each Row In ACNum.Cells
  Set AC = WS.Cells(WS.Rows.Count, "F").End(xlUp).Offset(1)
  If (AC = "762" Or AC = "763" Or AC = "764" Or AC = "765" Or AC = "768") Then
      Row.Offset(0, 3).Value = "72"
  ElseIf (AC >= "300" And …

  Run Code Online (Sandbox Code Playgroud)