我應用了一個宏來插入序列號IF ISBLANK單元格，在這里我知道我們可以用公式來應用這個，為什么我應用一個宏來插入序列號IF ISBLANK單元格？ 因為我想在應用宏時自動插入序列號，這就是為什么我為此創建了一個宏，這里有一個問題我得到了 (Compile Error: Argument Not Optional)在這個宏中
。在這里，我希望當宏應用序列號時，公式應該在該單元格范圍內被隱藏起來
Sub SerialNo()
Dim LastRow As Long 最后一行
LastRow = Cells(Rows.count, "B"/span>).End(xlUp).Row
With Range("A1:A" & LastRow).FormulaR1C1 = "=IF(ISBLANK(RC[1]),"""",COUNTA(R1C2:RC[1])"
范圍.值
End Sub
uj5u.com熱心網友回復：
這是你的嘗試嗎？
這是你的嘗試嗎？
Option Explicit
Sub Sample()
Dim ws As 作業表
Dim MyFormula As String
Dim LastRowAs Long
'~~> 這是你的公式。
MyFormula = "=IF(ISBLANK(B1),"""",COUNTA($B$1:B1))"/span>
'~~> 將此改為相關表。
Set ws = Sheet1
With ws
LastRow = .Cells(.Rows.Count, "B").End（xlUp）.Row
.Range("A1:A" & LastRow).Formula = MyFormula
結束 與
結束 子
如果你想在以后將公式轉換為數值，你可以使用
。.Range("A1:A" & LastRow).Value = .Range("A1:A" & LastRow) .
注意：
- 使用
Objects。更容易處理和理解你的代碼。 - 雖然
R1C1符號是好的，我更喜歡A1符號。這使得我更容易看到我的公式是指哪一個(幾個)單元格。(這只是我的個人意見，并不意味著這是處理這種情況的最佳方式。歸根結底，這是一種個人選擇）
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/323594.html
標籤：
下一篇：根據多個標準回傳值