VBA取消选择工作表中的行和列

Question

我有一堆.csv数据报告需要在Excel中清理。

我一直在尝试编写一个宏，它可以选择所有内容，然后从选择中取消选择一些特定的行和列。

我不需要代码再进一步了，因为我有另一个宏可以删除所有内容。

好的是，我删除的数据是一致的，所以我可以硬编码需要告别的东西。

我接触过一些C#，但没有VBA，尤其是MS Excel。我发现了一些我一直在尝试调整的代码，但没有让它做任何事情，或者只是出错。在这一点上，我想让它做一行，然后想办法删除其他行。

我能得到一些关于如何选择所有减去行或列的内容的指针吗？

Sub Macro1()
'
' Macro1 Macro
' report format
'
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim OutRng As Range
' xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
' Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set DeleteRng = Application.Rows(7)
For Each rng In InputRng
If Application.Intersect(rng, DeleteRng) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
'
End Sub

Answer 1

所以我觉得很傻，因为我完全忽略了Excel可以尝试自动录制宏。我试了一下，它做了我需要做的事。

这是自动生成的代码，用于生成我需要的最终结果。它只高亮显示所需的单元格。从那里我可以使用键盘快捷键来格式化工作表。

我完全不明白它做了什么，但它在这里。

Sub work()
'
' work Macro
'
'
Range("M3:XFD1048576,F3:J1048576,C3:C1048576").Select
Range("C3").Activate
End Sub

Answer 2

Sub Macro((将wb标注为工作簿设置wb=此工作簿'将列(2(视为B列wb。工作表("表1"(.列(2(.完整列.删除