Инвертировать пустые и непустые ячейки в Excel - VBA

Question

У меня есть диапазон ячеек, в которых ячейки Нет помечены *.Я хочу пометить каждую пустую ячейку (Да) знаком # и сделать пустыми ячейки Нет (инвертировать дизайн).

Чтобы добавить больше деталей, ячейки находятся под заголовками как в строках, так и в столбцах.

Например, я ожидаю, что данные будут:

F2--? (End of F used Rows)
Unknown amount of Columns--? (End of F used Rows)

Я даже не уверен, с чего начать, кто-нибудь может дать мне указатель?Я думаю, что обдумываю это, но я новичок в VBA и все еще учусь.

Answer 1

Вот как я это сделал.

'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