Question

Sub Concatenate ()  
    Dim LastRow As Long  
    Dim i As Long  
        LastRow = Range("A" & Rows.Count).End(xlUp).Row  
            ActiveSheet.Range("K2").Formula = "= TODAY() - I2"
            Range("K2").Select  
            Selection.AutoFill Destination:=Range("K2:K" & LastRow)  
        For i = 2 To LastRow  
            If Range("K" & i).Value < 5 Then Range("J2:J" & i).Value = "Week of" & "" & ("I2:I" & i)  
        Next i  
End Sub

我有一个电子表格，该电子表格在A列中列出了项目编号，在I列中列出了相应的日期。并不是每个项目都有一个日期，因此我将LastRow基于A列进行处理。我希望过去的日期在J列中返回0。我希望将来的日期返回“ __周”，其中__是I列中的日期。

我对VBA并不是最熟悉，并且遇到了一些麻烦。通过以上操作，一切返回“ 9周”。我知道这是一个简单的答案，但是我已经谷歌搜索了一个小时。我只需要知道使上面的代码在串联的末尾返回“ I”的语法，因为它使行向下循环。如果这是重复的问题，我表示歉意。

先谢谢了。

Answer 1

也许您的状况应该是：

If Range("K" & i).Value < 5 Then Range("J" & i).Value = "Week of " & Range("I" & i)

条件连接并自动填充相邻列中的值

1 个答案: