wps表格怎样批量调出填充颜色单元格到前一栏
如图所示:
Sub macro1()
n = Cells.Rows.Count '工作表的总行数
k = Range("B" & n).End(xlUp).Row 'B列最后一个非空单元格的行号
Range("A1:A" & k) = " " 'A列对应B列的非空单元格输入1个空格
Range("A1").Select '选择A1单元格
x = 1
Do 'Do……Loop循环
x1 = x 'A列每个合并单元格的首行号
x = Selection.End(xlDown).Row 'A列每个合并单元格的尾行号
For i = x1 To x - 1 'For……Next循环找B列有填充色的单元格
If i > k Then Exit Sub 'A列最后一个合并单元格,对应B列没有填充色的单元格时,退出过程
If Not Cells(i, 2).Interior.Pattern = xlNone Then '判断B列单元格是否不是无填充色
Cells(x1, 1) = Cells(i, 2) '条件成立,将B列单元格的值赋给A列合并单元格
Exit For '然后,退出for循环
End If '条件判断结束
Next i 'For……Next循环结束
If x = n Then Exit Do '条件成立退出Do循环
Selection.End(xlDown).Select '选择A列下一个合并单元格
Loop 'Do……Loop循环结束
End Sub
很简单,把鼠标移到你要往下填充的那个表格的右下角,此时鼠标变成黑色十字那样。然后你单击按住往下拉后,右下角会出现一个绿色点的小部件,你点击一下,然后选择复制单元格。
选中需要填充的单元格——填充颜色
直接选中第一栏,然后单元格格式,填充颜色,选择颜色就可以了