Question

我正在尝试连接满足特定条件的行。当我运行代码时，第一个单元格已正确填充；但是，此后的每个单元与第一个单元相同。

第一个单元格是FS_Tier_1 , FS_CAP_1_001
下一个单元格应为FS_Tier_1 , FS_CAP_1_002
此后的单元格应为FS_Tier_1 , FS_CAP_1_003，依此类推。

但是，每个单元格都显示FS_Tier_1 , FS_CAP_1_001。我认为这只是我需要做的一个小更改，但今天下午我一直对此保持沉默。

我已经尝试了关于StackOverflow上其他问题的许多建议，以及自己玩弄代码。

Sub Concatenate_Cap1()

  With Worksheets("PD Code Structure")
      Dim i As Integer
      Dim cell As Range
      Dim Rng1 As Range
      Set Rng1 = Range("F2:F1006")
      i = 2

      For Each cell In Rng1

          If InStr(Cells(i, 3).Value, "FS_Tier_") And InStr(Cells(i, 8).Value, "FS_CAP_1_") Then
              Range("F2:F1006").Formula = Cells(i, 3).Value & " , " & Cells(i, 8).Value
              i = i + 1
          End If

      Next cell
  End With

End Sub

Answer 1

您要将整个范围设置为相同的值。

    data () {
        return {
            userInfo: null,
            offers: null
        }
    },

    watch: {
        '$route'() {
            this.userInfo = null
            this.offers = null
            this.loadUserInfo()
            this.getUserOffers()
        }
    }

类似的事情应该起作用：

Range("F2:F1006").Formula = Cells(i, 3).Value & " , " & Cells(i, 8).Value

代码不为每个/ IF语句串联行

1 个答案: