Question

我有一系列单元格，其中No单元格标记为*。我想用#标记每个空单元格（是），然后使“否”单元格为空（反转设计）。

要添加更多详细信息，单元格均在行和列的“标题”下。

例如，我希望数据为：

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

反转Excel中的空单元格和非空单元格-VBA

1 个答案: