求扩充选区代码修改

同心/ty

以下代码是执行J列到U列的文本数据转数字格式的宏，如果我想增加E列到F列，该代码如何修改，请大神指教。



Sub 区域内文本转数字() '避免空单元格变为零
    Application.ScreenUpdating = False
    For Each Rng In Application.Intersect(ActiveSheet.UsedRange, Columns("j:u")) '选j列至U区间
         If Rng <> "" Then
         If VBA.IsNumeric(Rng) Then
            Range(Rng.Address) = Rng + 0
         End If
         End If
    Next Rng
    Application.ScreenUpdating = True
End Sub

糖↗小冷

Columns("f：e“，”j:u"))  也不知道对不对哈哈哈哈

ykcbf1100

范围根据自己需要去修改就行了。

同心/ty

糖↗小冷 发表于 2023-4-20 16:14
Columns("f：e“，”j:u"))  也不知道对不对哈哈哈哈

这个不对，我开始也这么想的，不成功。谢谢你的参与。

同心/ty

ykcbf1100 发表于 2023-4-20 16:50
范围根据自己需要去修改就行了。

谢谢老师帮我修改了代码。测试成功。