vba - 自定义字符串反转顺序 - 配对 2 位数字

Question

关闭。这个问题需要details or clarity .它目前不接受答案。












想改进这个问题？通过 editing this post 添加详细信息并澄清问题.


8年前关闭。







Improve this question




我有 Excel 数据文件。
在单元格中我有这样的数据

480000074B26E42D

我怎样才能在其他单元格中获得结果这样

2DE4264B07000048

所以，我想把最后两位数字放在前面。然后是 2D 之前的 2 位数字并将其放在 2D 之后(前面那个)



我尝试使用此代码，但我得到错误的结果

=RIGHT(B2,LEN(B2) -2)

Answer 1

我相信其他贡献者误解了您的要求，只是提供建议来扭转所提供的值(value)。

输入 480000074B26E42D ，我认为您要求的结果不正确:2DE4264B07000084 .最后两个字符已转置，实际输出为:2DE4264B07000048 .

如果正确，您可以使用此 Visual Basic for Applications 函数(存储在公共(public)代码模块中)

Public Function strReverse_Character_Pairs(ByVal strValue As String) As String

  Dim lngLoop                                           As Long
  Dim strReturn                                         As String

  strReturn = ""

  For lngLoop = Len(strValue) - 1& To 1& Step -2&
      strReturn = strReturn & Mid$(strValue, lngLoop, 2)
  Next lngLoop

  strReverse_Character_Pairs = strReturn  
End Function

用法，基于单元格 A1中的原文, 将如下(将此公式放在除单元格 A1 之外的任何单元格中):
=strReverse_Character_Pairs(A1)
还可以通过在任一端添加“虚拟”字符来增强该功能以检查该值是否具有偶数个字符，以便反向对符合预期。