用VBA实现A列字符倒转过来 保存B列

laoau138

用VBA实现A列字符倒转过来   保存B列

wanao2008

请测试：

1. Sub wanao()
   
2.     Dim x As Integer, i As Integer
   
3.     Dim a As String
   
4.     Range("b:b").ClearContents
   
5.     For x = 1 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
   
6.         a = Cells(x, 1)
   
7.         If Len(a) > 1 Then
   
8.             For i = Len(a) To 1 Step -1
   
9.                 Cells(x, 2) = Cells(x, 2) & Mid(a, i, 1)
   
10.             Next
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码

可下载文件：

小小水皮1

你好 用正则貌似也行的
Sub djk()
Dim rng, k%, i%, arr
Set regx = CreateObject("vbscript.regexp")
    With regx
    .Global = True
    .Pattern = "\S"
    For Each rng In [a1:a2]
         Set mat = .Execute(rng)
            k = mat.Count
            ReDim arr(1 To k)
                For i = k To 1 Step -1
                 j = j + 1
                arr(j) = mat.Item(i - 1)
                Next
          Cells(rng.Row, "c") = Join(arr, "")
          j = 0
    Next
    End With
End Sub

叫我赵日天

1. Sub test()
   
2. For m = 1 To [a65536].End(3).Row
   
3. Cells(m, 2) = StrReverse(Cells(m, 1))
   
4. Next
   
5. End Sub

复制代码

laoau138

小小水皮1 发表于 2016-9-15 10:49
你好 用正则貌似也行的
Sub djk()
Dim rng, k%, i%, arr

VBA定位数字跟随次数统计

http://www.excelpx.com/thread-424454-1-1.html