Excel格式基于相邻单元格的单元格

Question

大家好日子，

我有一个包含整数，小数和百分比的电子表格，全部显示为小数，但用户希望将其视为格式正确。

我如何使用VBA更改此内容？

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

  

Sub Macro1（）

     

对于范围内的每个单元格（“A2”）
      '打印当前数字格式       Debug.Print cell.NumberFormat
      '对相邻的单元格应用不同的数字格式

     

'活跃单元格右侧的单元格
      cell.Offset（0,4）.NumberFormat =“@”'@表示文字
  下一步

     

End Sub

现在我有117000行和12列供这个宏使用，以纠正格式。 Col 2到13是一年中的几个月，Col 13包含Selection.Style的文本版本，Col 14包含Selection.NumberFormat，它应该用于格式化它左边的12个单元格。

我似乎无法掌握任何类型的循环以允许在所有列中循环，并希望您可以协助解决此问题。

Answer 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")将是{{1}}中的每个单元格。