Excel vba当满足条件时/，执行以下操作
1.数据范围K1:Q8为格式范围2.。当K/L/M/N/O/P/Q(在K:Q8范围内)这几列都有填充单元格时(满足此条件时)3。删除K1:Q1填充单元颜色(也就是说还原K...
1.数据范围K1:Q8为格式范围
2.。当K/L/M/N/O/P/Q(在K:Q8范围内)这几列都有填充单元格时(满足此条件时)
3。删除K1:Q1填充单元颜色(也就是说还原K1:Q1为无色
4.。将K2:Q8单元的填充单元格移动至上一行
5.。当条件不满足时，不做任何操作
注:第9行下内容:“不能”跟着移动 展开
2.。当K/L/M/N/O/P/Q(在K:Q8范围内)这几列都有填充单元格时(满足此条件时)
3。删除K1:Q1填充单元颜色(也就是说还原K1:Q1为无色
4.。将K2:Q8单元的填充单元格移动至上一行
5.。当条件不满足时，不做任何操作
注:第9行下内容:“不能”跟着移动 展开
若以下回答无法解决问题，邀请你更新回答
1个回答
展开全部
什么叫填充单元格？移动什么？内容？格式？还是内容+格式？
追问
什么叫填充单元格？单元格填充颜色
移动什么？单元格
内容？填充颜色的单元格
格式？填充颜色
还是内容+格式？填充颜色
追答
Sub xx()
k = True
For i = 11 To 17
x = True
For j = 1 To 8
If Cells(j, i).Interior.Color <> &HFFFFFF Then x = False: Exit For
Next
If x Then k = False: Exit For
Next
If k Then
[k2:q8].Copy
[k1].PasteSpecial Paste:=xlPasteFormats
[k8:q8].ClearFormats
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
