Excel VBA 使用样式答案

【问题标题】：Excel VBA working with StylesExcel VBA 使用样式
【发布时间】：2018-06-06 00:10:58
【问题描述】：

也许是这个问题的简单解决方案。我正在尝试在 excel 中创建 VBA 代码，因此它将以“良好”突出显示的单元格从工作表 A 移动到工作表 B。

我可以毫无问题地移动单元格，添加样式，但如果有人能指出我正确的方向，则需要上述帮助。

【问题讨论】：

检查Cell的.Style = "Good"是否有？

【解决方案1】：

考虑：

Sub OutOfStyle()
    Dim cel As Range

    For Each cel In Sheets("Sheet1").UsedRange
        If cel.Style = "Good" Then
            cel.Copy Sheets("Sheet2").Range(cel.Address)
        End If
    Next cel
End Sub

将此调整为您自己的工作表名称。

【讨论】：

谢谢，它正在做我想做的事，只是为了弄清楚其他一些位。
在工作表 1 中，我有填充样式的行，如好，坏，代码确实将好的单元格复制并粘贴到其当前位置，我如何更改代码以便将其粘贴到工作表 2 上下一个空闲单元格，一行单元格将在 Good 中突出显示，我要剪切并粘贴到工作表 2
@halo_4 我不明白
所以在表 1 中，我有一个数据集，数据集的行将是“好”或“坏”的样式。但数据集将混合两种单元格样式。并且在工作表 2 上只有“良好”的数据，而代码确实粘贴了所需的单元格并将 .Copy 更改为 .Cut 是我想要做的，代码粘贴它来自的单元格，数据表 2 是永远增长的数据集，所以我需要它剪切行并粘贴到下一个空闲行的表 2，我已经厌倦了编辑我现有的代码：- Sheets("Sheet2").Range("A " & 行数).End(xlUp).Offset(1, 0)