VBA 字符调换位置

On_fire

VBA 字符调换位置

*

Sheet1是源数据

*

代码逻辑如下,

1.      判断单元格不为空

2.      取单元格的右侧3个字符

3.      取右1及右3的字符, 位置互调 ( 注:右2的字符为”.”)

*

模拟结果在Sheet1(2)

*

恳请大神, 老师帮忙…谢谢!!!

ggmmlol

Sub test()
    s = "ABC.D"
    Mid(s, Len(s) - 2, 3) = VBA.StrReverse(Right(s, 3))
    MsgBox s
End Sub

taller

On_fire

taller 发表于 2022-12-9 05:05

谢谢版主出手帮忙…
*
刚发现这题的判断逻辑有难度, 写不出来…
*
这是一张表, 行列是…变量
第1到4行是标题行, A及B两列是标题列
由C列往右开始, 每隔一列, 执行代码( 截图:标黄列, 字符互换位置 )?
请您再次帮帮忙...谢谢...!!!

taller

On_fire 发表于 2022-12-9 11:14
谢谢版主出手帮忙…
*
刚发现这题的判断逻辑有难度, 写不出来…

没有看到任何你写的代码，只是提问，等代码。。。

taller

ggmmlol 发表于 2022-12-9 01:14
Sub test()
    s = "ABC.D"
    Mid(s, Len(s) - 2, 3) = VBA.StrReverse(Right(s, 3))

学习了Mid还可以用在左侧，ggmmlol 厉害！

On_fire

taller 发表于 2022-12-9 14:50
没有看到任何你写的代码，只是提问，等代码。。。

  

Sub demo2()

Dim r, c, s

With Sheet3

    r =.UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole,searchorder:=xlByRows, searchdirection:=xlPrevious).Row

    c =.UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole,searchorder:=xlByColumns, searchdirection:=xlPrevious).Column

   

    arr =.Range("a1").Resize(r, c)

   

    For i = 5 ToUBound(arr)

      For j = 3 ToUBound(arr, 2) Step 2

        

        Set s =Cells(i, j)

        

              IfCells(i, j) <> "" Then

                Mid(s, Len(s) - 2, 3) = VBA.StrReverse(Right(s, 3))

              End If

           Next

         Next

  End With

End Sub

陈宫在家吗

ggmmlol 发表于 2022-12-9 01:14
Sub test()
    s = "ABC.D"
    Mid(s, Len(s) - 2, 3) = VBA.StrReverse(Right(s, 3))

太牛了！居然能这么用！