摘要：本文通过一个详细的 VBA 案例，讲解了如何使用 CDbl 函数处理带有表格的数据。案例中，我们模拟了一个包含产品编号、单价（字符串形式）、数量、折扣率等信息的 Excel 表格，目标是计算每个产品的总价。文章详细介绍了如何将字符串形式的单价转换为 Doubl
本文通过一个详细的 VBA 案例，讲解了如何使用 CDbl 函数处理带有表格的数据。案例中，我们模拟了一个包含产品编号、单价（字符串形式）、数量、折扣率等信息的 Excel 表格，目标是计算每个产品的总价。文章详细介绍了如何将字符串形式的单价转换为 Double 类型，并结合数量和折扣率进行总价计算。通过完整的代码实现和解析，读者可以掌握 CDbl 函数在实际场景中的应用，并了解如何处理数据类型转换、百分比计算以及非法数据等问题。本文适合有一定 VBA 基础的读者，帮助提升数据处理和自动化操作的能力。
VBA CDBL 函数是 Visual Basic for Applications (VBA) 中的一个内置函数，用于将表达式转换为 Double 数据类型。Double 是一种浮点数数据类型，可以存储较大范围的数值，并且具有较高的精度。
CDbl(expression)expression：要转换为 Double 类型的表达式。表达式可以是数字、字符串、日期或其他数据类型。将整数转换为 Double：Dim intValue As IntegerintValue = 10Dim dblValue As DoubledblValue = CDbl(intValue)' dblValue 现在是 10.0将字符串转换为 Double：Dim strValue As StringstrValue = "123.45"Dim dblValue As DoubledblValue = CDbl(strValue)' dblValue 现在是 123.45将布尔值转换为 Double：Dim boolValue As BooleanboolValue = TrueDim dblValue As DoubledblValue = CDbl(boolValue)' dblValue 现在是 -1.0（True 转换为 -1，False 转换为 0）将日期转换为 Double：Dim dateValue As DatedateValue = #2023-10-01#Dim dblValue As DoubledblValue = CDbl(dateValue)' dblValue 现在是 45195.0（日期在 VBA 中存储为从 1899-12-30 开始的天数）通过使用 CDbl 函数，你可以确保在进行数学运算或数据存储时，数值以 Double 类型的形式进行处理，从而避免精度损失或溢出问题。
我将通过一个详细的案例来讲解如何使用 VBA 的 CDbl 函数。这个案例将涉及处理带有表格的数据，并展示如何在复杂场景中使用 CDbl 函数。
产品编号单价（字符串）数量折扣率（百分比）总价（自动计算）001"12.50"105%002"24.75"510%
003"8.99"200%
004"100.00"215%
目标：
以下是实现上述功能的 VBA 代码：
Sub CalculateTotalPriceDim ws As WorksheetDim lastRow As LongDim i As LongDim unitPrice As DoubleDim quantity As LongDim disCountRate As DoubleDim totalPrice As Double' 设置工作表Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设数据在 Sheet1 中' 获取最后一行lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row' 循环处理每一行数据For i = 2 To lastRow ' 从第 2 行开始，跳过标题行' 将“单价”列的字符串转换为 DoubleunitPrice = CDbl(ws.Cells(i, 2).Value)' 获取“数量”列的值quantity = ws.Cells(i, 3).Value' 将“折扣率”列的百分比转换为小数discountRate = CDbl(ws.Cells(i, 4).Value) / 100' 计算总价totalPrice = unitPrice * quantity * (1 - discountRate)' 将总价写入“总价”列ws.Cells(i, 5).Value = totalPriceNext i' 提示完成MsgBox "总价计算完成！"End Sub001"12.50"105%118.75002"24.75"510%111.375003"8.99"200%179.8004"100.00"215%170.0如果“单价”列可能包含非法数据（例如 "12.50$"），可以在转换前进行检查：
If IsNumeric(ws.Cells(i, 2).Value) ThenunitPrice = CDbl(ws.Cells(i, 2).Value)ElseMsgBox "第 " & i & " 行的单价数据非法！"Exit SubEnd If通过这个案例，你可以掌握如何在 VBA 中使用 CDbl 函数处理复杂的数据转换和计算任务。
来源：码农小伍哥