我有一系列单元格,它们的 No 单元格标有*
. 我想用 a 标记每个空单元格(是)#
并使无单元格为空(反转设计)。
为了添加更多细节,单元格在行和列的“标题”下。
例如,我希望数据是:
F2--? (End of F used Rows)
Unknown amount of Columns--? (End of F used Rows)
我什至不知道从哪里开始,有人能给我指点吗?我想我想多了,但我是 VBA 新手,仍在学习。
这就是我最终这样做的方式。
'Invert Y/N * Logic
'Find Last Column
Dim lCol As Long
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
Dim rng as Range
Dim rcell As Range
Set rng = ActiveWorkbook.ActiveSheet.Range("F" & Application.ActiveSheet.UsedRange.Rows.Count, Cells(2, lCol ))
For Each rcell In rng.Cells
If IsEmpty(rcell.Value) = True Then
rcell.Value = "#"
End If
If rcell.Value = "*" Then
rcell.Value = ""
End If
Next rcell
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句