vba 从sheet1中挑选出符合条件的单元格将内容复制到sheet2中怎么做？

显示全部楼层 · 2013-7-29 13:06:11

思路，动态找出sheet1中有多少列，每列多少行，然后判断每列单元格是否有底纹颜色，如果没有，复制，有，跳过。VBA代码可写成如下形式(后面的注释都加了注释符号的，可以完全复制到VBA中运行)。Sub 复制没有底纹的单元格()Dim intCol_num%, intRow_num%, i%, intDw_a%, intShRow_num%intCol_num = Sheets(1).Cells(1, 100).End(xlToLeft).Column '找出sheet1最后一个非空列的列号For i = 1 To intCol_num Step 1 '循环非空的每一列
intRow_num = Sheets(1).Range(...

千问 · 2013-7-29 13:06:11

Sub test()
'假设sheet1的A列从第一行开始有数据，以下就可以实现
For i = 1 To Sheet1.Cells(1, 1).End(xlDown).Row
If Sheet1.Cells(i, 1).Interior.ColorIndex = xlNone Then
She...