If ColumnCount = Selection.Columns.Count Then
                                    ' 如果是，则写入一个空行。
                                    Print #FileNum,
                                    Else
                                    ' 否则，则写入一个逗号。
                                    Print #FileNum, ",";
                                    End If
                                    ' 开始 ColumnCount 循环的下一个迭代。
                                    Next ColumnCount
                                    ' 开始 RowCount 循环的下一个迭代。
                                    Next RowCount
                                    ' 关闭目标文件。
                                    Close #FileNum
                                    End Sub
                                   
4. 运行该宏之前，请选择要导出的数据，然后在“工具”菜单中指向“宏”并单击“宏”。
5. 选择 QuoteCommaExport 宏，然后单击“运行”。
 
计算包含公式、文本或数字的单元格数量
在 Excel 中，您可以对包含公式、文本或数字的工作表中的单元格数量进行计算，方法是使用“定位条件”对话框选择单元格，然后运行计算所选单元格数量的宏。例如，当您需要设置表格以确定合计列的每一行是否都包含公式而不用手动检查每一行时，此方法可能很有用。
选择单元格
要选择公式、文本或数字，请执行以下步骤：
1. 在“编辑”菜单中，单击“定位”，然后单击“定位条件”。
2. 在“定位条件”对话框中，要选择所有公式，请单击“公式”并确保选中“数字”、“文本”、“逻辑值”以及“错误”复选框。要选择文本，请选择“常量”选项，然后仅单击并选中“文本”复选框。要选择数字，请选择“常量”选项，然后仅单击并选中“数字”复选框。
计算所选单元格数量的 VBA 代码
要计算所选的单元格数量并在消息框中显示计算结果，请使用以下程序：
Sub Count_Selection()
                        Dim cell As Object
                        Dim count As Integer
                        count = 0