选中后要清除掉的单元格,右键单击该单元格选择类型底纹,点击在里面以后,再点删掉前面的打勾
cells(j,38)cells(i,27))cells(n,39)就行了啊。
。
诸如,将ab两列扩展到c列
c1输入
a1b1
下拉
altf11--直接插入模块,截图以下代码。代码很简单只能说明:逐间工作表停止循环,在该工作表的已在用区域中逐房单元格重复运行,如果不是单元格为错误值,则知道单元格内容。
都很规范的要求的写法是:选中后单元格数量count是都属于集合的方法,cells是整数集,而selection不是,但cells是selection的封印(缺省)属性。。。因此并不可行,但不规范标准。。不规范的要求的书写习惯害处很多,也则影响代码的阅读
亲,打开你的excel文件,按“altf11”先打开vba编辑窗口,然后把在左侧不对应的sheet上右键点击,右侧空白位置处再复制下面的代码。关了vba窗口。然后按“altf8”可以打开宏窗口,选择刚插入到的宏,再点“想执行”。
subqcf()
dimd
setdcreateobject(scripting.dictionary)
dimi,j,rlikelongcells(,a).end(xlup).row
fori1didr
forj1to10
d(cells(i,j).value)
next
range(li).resize(1,)
r
next
setdnothing
endsub
请在两个地方写代码。
可以打开你的excel文件,按“altf11”先打开vba编辑窗口,然后在左侧thisworkbook上右击,右侧空白位置处再复制下面的代码。
在左侧按要删除掉单元格的那个sheet上左键双击,右侧空白区域处再复制下面的代码。