我想在excel中使用VB代码。如果单元格＆＃34; A1：A200为空，则为concananet单元格B1：C1

Question

我想在excel中使用VB代码。如果单元格＆＃34; A1：A200为空，则为concananet单元格B1：C1。 enter image description here

Answer 1

Sub FillColumnA()
    Dim i As Long
    For i = 1 To 200
        If Cells(i, 1).Value = "" Then
            Cells(i, 1).Value = Cells(i, 2).Value & Cells(i, 3).Value
        End If
    Next
End Sub

Answer 2

将数据向下移动1行并添加标题。通过选择范围中的填充单元格并按 Ctrl + T 将数据设置为表格。然后在D2栏中放

=IF(ISBLANK(A2),CONCATENATE(B2,C2),"")

该表将使用公式自动填充其余列。

如果您只是按 Ctrl + T 而不移动数据，然后不选择我的表格标题，数据将为您移动。< / p>

Answer 3

没有循环

Sub FillColumnA()
    With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
       .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=CONCATENATE(RC2,RC3)"
       .Value = .Value
    End With
End Sub