-2

Screenshot LINK 转移的价值在Excel中使用条件宏

大家好，

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

例如。

如果列j空白，J列必须填写9列数字的电话号码。
保留第j列中的电话号码，否则从第k列或第l列中删除，然后粘贴到col J.
将列中的电话号码转换为列k，如果列为空白。

标准：

山口Ĵ必须用电话号码
应该从山坳JKL唯一的电话号码。
只需将电话号码从col k或col l转移至col J，如果其空白或保留（如果可用）。

感谢。

来源

2014-09-22 pandzkilla

向大家致歉，因为我不能发布一个PIC还和我不知道如何将它张贴在Excel视图类型。 – pandzkilla 2014-09-22 11:32:30

K和L列中的数字的优先级是多少？数据的来源又是什么？您可能可以在查询中完成这一切。 – 2014-09-22 12:48:33

@ jbarker2160 1）没有优先权，我只需要将电话号码从Col K转移到J，如果col J为空白，则col L到K也是一样。2）数据来源：我需要排序的客户列表。 3）我不知道如何执行我的查询，请帮助 – pandzkilla 2014-09-23 02:26:56

代码：

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

来源

2014-09-23 15:44:46

完美的作品！我只是注意到有colK到Col J的重复电话号码。见截图：http://prntscr.com/4prb9i – pandzkilla 2014-09-24 02:40:57

是的。根据你给我的标准应该没问题。如果这解决了您的问题，请将我的帖子标记为答案。应该在“Code：” – 2014-09-24 12:17:40

附近有一个复选标记，但是可以请你帮我从coll和k到col j消除重复，因为我发布的标准应该是独一无二的？谢谢 – pandzkilla 2014-09-24 17:46:48

转移的价值在Excel中使用条件宏

回答

代码：

相关问题