VBA小程序--针对选中区域_数字转文本

本文提供了一段VBA代码,用于将Excel中选中区域内的数字转换为文本格式,同时跳过公式单元格,避免了转换过程中的数据类型错误。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

Sub 针对选中区域_数字转文本()
    Dim cel As Range, rng As Range, i As Integer
    'On Error Resume Next   '忽略错误,继续执行下一条
    i = MsgBox("请勿选中整列" & Chr(13) & Chr(13) & "继续执行请点击确定" & Chr(13) & Chr(13) & "否则请点击取消", vbYesNo)
    If i = 7 Then MsgBox ("已取消执行此程序"): Exit Sub
    Set rng = Selection
    For Each cel In rng
        cel.Select
        If cel.HasFormula = True Then GoTo line1  '判断是否是公式,如果是公式,则忽略,类似于continue
        If IsNumeric(cel.Value) Then cel.Value = "'" & cel.Value    '判断是否是数字,如果是数字,那么就转换为文本
line1:          'GOTO这里,类似于continue
    Next
    MsgBox ("已完成")
End Sub

 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值