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

最新推荐文章于 2022-03-24 14:51:47 发布

STR_Liang

最新推荐文章于 2022-03-24 14:51:47 发布

阅读量1.1k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba excel openoffice

本文链接：https://blog.youkuaiyun.com/STR_Liang/article/details/106260724

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文提供了一段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