使用条件MACRO在Excel中传输值

Question

截图

请帮我创建一个宏/ if else语句，如果它的空白，将填充J列。

例如。

1. 如果col j为空白，则列J必须填写col col或col l中的9位电话号码。
2. 如果可用，请保留col j中的电话号码，否则从col k或l切断然后粘贴到col J.。
3. 如果空白，请将col l中的电话号码转移到col k。

标准：

• Col J必须填写电话号码
• 应该是来自col JKL的唯一电话号码。
• 只需将电话号码从col k或col l转移到col J（如果空白或保留，如果可用）。

Answer 1

代码：

Sub PhoneNumbers()
    Dim w As Worksheet
    Dim r As Range
    Dim r1 As Long
    Dim i As Long

    Set w = Sheet1 'Replace Sheet1 with the (name) of your worksheet.
    Set r = w.UsedRange
    r1 = r.Row

    For i = r1 To r1 + r.Rows.Count - 1
        If w.Cells(i, 10).Value = "" Then
            If w.Cells(i, 11).Value = "" Then
                w.Cells(i, 10) = w.Cells(i, 12)
            Else
                w.Cells(i, 10) = w.Cells(i, 11)
            End If
        End If
    Next i

End Sub