需要宏在D列的所有单元格（带字符串）上运行

Question

Sub arranges()

Dim str As String
str = ActiveCell.Value

ActiveCell.Value = Left(str, 3) & "/" & Mid(str, 4, 2) & "R" & Mid(str, 6, 2) _


End Sub

D栏 - 数据

2755520
1956016
2454518
2256016
1856014

最终结果是：275/55R20 ---＆gt;结果将是D列中的所有单元格。宏添加＆＃34; /＆＃34; ＆安培; ＆＃34; R＆＃34;在字符串中的特定位置，我需要最终确定数据。

Answer 1

如果我理解你正在寻找什么，这将会击中D列中的每个单元格。如果你想跳过第一行，请将If cell.row <> 1 Then放在cell.Value = ...之前。

Sub arranges()
Dim cell As Range, ws As Worksheet
Set ws = ActiveSheet

For Each cell In ws.Columns(4).SpecialCells(xlCellTypeConstants)
    cell.Value = Left(cell.Text, 3) & "/" & Mid(cell.Text, 4, 2) & "R" & Mid(cell.Text, 6, 2)
Next cell

End Sub