在 Excel 2013 中反转列中的数字

在 Excel 2013 中反转列中的数字

从技术上讲,不使用插件是否可以翻转某一列中所有单元格的数字?

例如,一个包含两列的电子表格

Ref, Weight
3300, 500
3200, 500

会成为

Ref, Weight
0033, 500
0023, 500

答案1

选择您想要处理的单元格并运行这个简短的宏:

Sub flipper()
    Dim r As Range, s As String

    For Each r In Selection
        r.NumberFormat = "@"
        r.Value = StrReverse(r.Text)
    Next r
End Sub

宏的安装和使用非常容易:

  1. ALT-F11 打开 VBE 窗口
  2. ALT-I ALT-M 打开新模块
  3. 粘贴内容并关闭 VBE 窗口

如果您保存工作簿,宏将随之保存。如果您使用的是 2003 以后的 Excel 版本,则必须将文件保存为 .xlsm 而不是 .xlsx

要删除宏:

  1. 调出如上所示的 VBE 窗口
  2. 清除代码
  3. 关闭 VBE 窗口

要使用 Excel 中的宏:

  1. ALT-F8
  2. 选择宏
  3. 触摸运行

要了解有关宏的更多信息,请参阅:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

必须启用宏才能使其工作!

编辑#1:

如果您希望避免使用宏,并且单元格仅包含数字,并且您愿意使用“辅助列”,那么列中的数字A, 在C1进入:

=TEXT(SUMPRODUCT(MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)*10^(ROW(INDIRECT("1:" & LEN(A1)))-1)),REPT("0",LEN(A1)))

并抄下来: 在此处输入图片描述

T. Valko 的回应

相关内容