如何格式化Excel列中從具體行向下

Question

起價B5，C5，D5，......我有一個Excel文件，它看起來象下面這樣：

提醒您，我有一些標題和前三行的標題文本，所以我需要宏來設置從第5行到結束的基於行的標題的類型（標題只是提及所需的類型），請你讓我知道如何我可以在Excel VBA中做到這一點？

謝謝

Answer 1

這是你正在嘗試？我展示了一個Column B的例子。爲其餘的做。

邏輯：

1. 找到最後一排一列。請參閱THIS
2. 構建您的範圍
3. 根據需要設置範圍的格式。

代碼：

Private Sub Sample() 
    Dim ws As Worksheet 
    Dim LastRow As Long, Header As Long 

    Header = 5 '<~~ Start row for formatting 

    Set ws = ThisWorkbook.Sheets("Sheet1") 
    With ws 
     LastRow = .Range("B" & .Rows.Count).End(xlUp).Row 

     With .Range("B" & Header & ":B" & LastRow) 
      ' 
      '~~> Change format here 
      ' 
      '~~> Number with 5 decimal places. 
      .NumberFormat = "0.00000" 
     End With 
    End With 
End Sub 

隨訪自評

謝謝，但這個只是格式化B5單元格，可以請讓我知道我可以做的其他從5行到像1000 - 貝西尼11秒前

哦，所以如果有5行後沒有價值，你想硬編碼的最後一行，然後使用此代碼

Private Sub Sample() 
    Dim ws As Worksheet 
    Dim LastRow As Long, Header As Long 

    Header = 5  '<~~ Start row for formatting 
    LastRow = 1000 '<~~ Last Row 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     With .Range("B" & Header & ":B" & LastRow) 
      ' 
      '~~> Change format here 
      ' 
      '~~> Number with 5 decimal places. 
      .NumberFormat = "0.00000" 
     End With 
    End With 
End Sub