0

今天是个好日子，

我有一个包含整数、小数和百分比的电子表格，都显示为小数，但用户希望看到它的格式正确。

我将如何使用 VBA 进行更改？

为了让您了解我一直在尝试的内容 - 将其分别放入 Col 14 和 15 中，以便宏阅读，如下面更详细的说明：

子宏1()

For Each cell In Range("A2")
' 打印当前数字格式 Debug.Print cell.NumberFormat
' 对相邻单元格应用不同的数字格式

' 活动单元格右侧的单元格
cell.Offset(0, 4).NumberFormat = "@" ' @ 表示 Text
Next

结束子

现在我有 117 000 行和 12 列供这个宏通过，以更正格式。Col 2 到 13 是一年中的月份，Col 13 包含 Selection.Style 的文本版本，Col 14 包含 Selection.NumberFormat，它应该用于格式化它左侧的 12 个单元格。

我似乎无法掌握任何类型的循环来允许循环遍历所有列，并希望您能对此提供帮助。

4

1 回答 1

1 
Sub ChangeFormat()
Dim cell As Range
    For Each cell In Range("B1:N" & Range("N" & Rows.Count).End(xlUp).Row)
        cell.NumberFormat = Range("N" & cell.Row).NumberFormat
    Next
End Sub

cell循环中的位置将是Range("B1:M100").

于 2013-09-30T08:10:00.117 回答