EXCEL 如何互换姓名

发布网友 发布时间：2022-04-21 20:54

我来回答

共4个回答

热心网友 时间：2022-05-23 16:09

在C2单元格输入：

=IF(A2="赵一","周四",IF(A2="孙三","郑七",IF(A2="钱二","武六",IF(A2="马九","王八",A2))))

下拉填充C列，然后  选中C列，右击 - 复制 ，选中B列 - 选择性粘贴 - 值，覆盖B列的数据便可。

热心网友 时间：2022-05-23 16:09

=IF(ISNA(MATCH(A2,D:D,)),A2,VLOOKUP(A2,D:E,2,))

追答=IF(ISNA(MATCH(A2,D:D,)),IF(ISNA(MATCH(A2,E:E,)),"",INDEX(D:D,MATCH(A2,E:E,))),INDEX(E:E,MATCH(A2,D:D,)))

热心网友 时间：2022-05-23 16:10

用宏命令可以实现

命令如下

Sub 互换()

Dim i, j

   '确认互换名字的区域,可以在D E 下边继续添加名字,不要有空格

    Range("D2:E2").Select

    Range(Selection, Selection.End(xlDown)).Select

  For i = 2 To ActiveSheet.UsedRange.Rows.Count

  '将B列填名字

   Cells(i, 2) = Cells(i, 1)

  For j = 1 To Selection.Count Step 2

  '条件1 A列名字如果能从D列找到则,B列名字改为E列对应名字

   If Cells(i, 1) = Selection(j) Then Cells(i, 2) = Selection(j + 1)

  Next

  For j = 2 To Selection.Count Step 2

  '条件2 A列名字如果能从E列找到则,B列名字改为D列对应名字

   If Cells(i, 1) = Selection(j) Then Cells(i, 2) = Selection(j - 1)

  Next

 Next

End Sub

不会看附件