如何裁剪选定的行并粘贴到另一个工作簿中&重复

Question

我有一列有15000行的电子表格。我想要创建一个脚本来对每个单元格进行颜色编码，从电子表格中降下来。我需要的是：

• 前10个红色细胞
• 接下来的5个细胞穿蓝色
• 接下来的5个细胞绿色
• 对从A1下降到A1500的所有细胞重复这一步骤.

有什么快速的指示吗？他们让一个管理员用手做了三天

-编辑

谢谢各位的回复，非常有帮助！

但是-原来我误解了一切。现在我已经意识到需要什么了。

我们拥有的是:一个电子表格中的四个工作簿( 1a，1b，1c，sheet1)。

脚本需要：

• 将前10个细胞切入1层，粘贴到sheet1柱A中；
• 将前5个细胞切入第2层，粘贴到sheet1柱A中；
• 将前5个细胞切入第3层，粘贴到sheet1柱A中；
• 对每个工作簿中的所有单元格按降序重复-因此最终结果将在sheet1列A中有10-5-5、10-5-5 -5等值。

任何帮助都将不胜感激:)否则手册就是..。请拯救我的理智

Answer 1

下面是一个简单的宏来实现它

Sub colorRBGRow()

   For X = 0 To 14980 step 20
    Range("A" & X + 1 & ":A" & X + 10).Interior.ColorIndex = 3
    Range("A" & X + 11 & ":A" & X + 15).Interior.ColorIndex = 5
    Range("A" & X + 16 & ":A" & X + 20).Interior.ColorIndex = 4

    Next X
End Sub

Answer 2

您可以使用条件格式:例如对于第一个颜色(假设数据开始于第2行)，请使用以下公式：

=AND(MOD(ROW()-1,20)>0,MOD(ROW()-1,20)<11) 

下一个颜色：

=AND(MOD(ROW()-1,20)>10,MOD(ROW()-1,20)<16)

最后一个更棘手：

=OR(MOD(ROW()-1,20)=0,AND(MOD(ROW()-1,20)>15,MOD(ROW()-1,20)<20))

Answer 3

你实际上可以自动填充颜色。您可以使用VBA或手动完成此操作。

VBA：

Sub Macro1()
    Range("A1:A20").Select
    Selection.AutoFill Destination:=Range("A1:A15000"), Type:=xlFillDefault
End Sub

这样做的空白纸-你可以复制粘贴这个颜色格式到任何你想要的单元格。

如果不想进行任何复制粘贴，则可以使用自动填充类型的xlFillFormats，但它也会覆盖任何其他(与颜色无关的)格式：

Sub Macro2()
    Range("A1:A10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A11:A15").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A16:A20").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1:A20").Select
    Selection.AutoFill Destination:=Range("A1:A109"), Type:=xlFillFormats
End Sub