Question

我在列M之间有空白单元格。另外，我在列A中有一些值。如果列M是空白，我应该用文本'XYZ'填充它。我怎样才能做到这一点？我试着跟踪。

Dim i As Integer
Range("A1").Select
Selection.End(xlDown).Select
lastcell_number = ActiveCell.Row
For i = 1 To lastcell_number
IF ELSE part here 
Next i

IF ELSE。

If IsEmpty(Range("A1").Value) = True Then

Range("A1").Select

ActiveCell.FormulaR1C1 = "XYZ"

End If

帮助我，如果别的话。如何写它。

Answer 1

将taskIdentifier与Range.SpecialCells method选项一起使用。

对于M栏：

on error resume next
with worksheets("Sheet1")
    .columns(12).specialcells(xlCellTypeBlanks) = "xyz"
end with
on error goto 0

我担心我不清楚你想要用A列做什么。

Answer 2

我假设列A是您确定列表行限制的地方：

Dim RowLimit As Long
RowLimit = Cells(Rows.Count, [A1].Column).End(xlUp).Row

Range("M1", Cells(RowLimit, [M1].Column)).SpecialCells(xlCellTypeBlanks) = "XYZ"

如果一个单元格的范围是空白的，我想用一些文本填充它。怎么做？

2 个答案: