17、Excel VBA 实用代码示例解析

Excel VBA 实用代码示例解析

1. 引言

在学习了 VBA 编码的机制和技术后，是时候通过一些实际的示例来将所学知识应用到实际工作中了。本文将介绍几个实用的 Excel VBA 代码示例，这些示例可以帮助你更轻松地处理 Excel 数据，提供更高级的功能。

2. 标签与数字的转换

2.1 概述

在从其他应用程序粘贴数据到 Excel 时，数据类型可能会出现错误，Excel 没有直接的批量转换命令，使用公式转换又需要大量的复制粘贴操作。下面的代码可以让你轻松地将标签转换为数字，或将数字转换为标签。

2.2 代码示例

Sub label_to_number()
    Dim addr As String
    For Each window In Windows
        For Each Worksheet In window.SelectedSheets
            For Each cell In Application.Selection
                addr = Worksheet.Name & "!" & cell.Address
                If IsNumeric(Range(addr).Value) = True And Range(addr).Text <> "" And Range(addr).HasFormula = False Then
                    Range(addr) = Val(Range(addr))