fori4needcells(,4)end(3).row
cells(i,4)split(split(cells(i,4),)(1),,)(0)
next
题中把sheet1中a1单元格定义变量给x变量,语句追加:
xsheets(1).range(
dowhilenotrs.eofsht.cells(i,3).valuesht.cells(i,3).valueampvbcrlfamp(0)
loop
定义2个变量,然后把左键单击单元格的行列各赋给两个变量,之后的过程要用鼠标右键点击单元格的行列就用这2个变量
以直接引用单元格a1为例,vba中有追加几种()msgboxcells(1,1)
第一种表示a1的方法msgboxcells(1,a)
第二种意思是a1的方法msgboxrange(a1)
第三种来表示a1的方法endsub关于excel中单元格地址脚注去相关:在同一工作表中语句,再单元格地址即可解决,即该单元格列行所在位置,列为首行所视英文字母,行为阿拉伯数字;在相同工作表中引用,则需因为所语句的工作表名,格式为“工作表名!单元格地址”,即这一语句是其他工作表中某单元格数据。
必须我们可以打开一个工作样表才是例子。
在excel中我们框选一个区域范围,然后在其中你选择一个单元格再输入公式,这个时候必须自身ctrl键接受配对组合你的操作。
而在vba中,我们可以不再委托一个范围,然后再在范围内指定单元格输入公式。与excel中操作完全不同,excel里这个可以在框选的范围后,选定范围外的单元格通过键入。
我们可以使用altf11组合快捷键进入vbe编辑器,再插入另一个新的模块,并在模块中输入输入100元以内代码:
subsetsheettabcolor()
worksheets(1).range(c5:c10).cells(1,1).formularand()
endsub
看到vba代码中的cells单元格的设置坐标是从range委托范围的左上角起始序列结束可以计算,也就是cells(1,1)并不是a1单元格只不过是c5单元格。
所以才如果我们把cells单元格设置为一个远超range范围的单元格序列,这样可能会再次出现以c5单元格为基准坐标参与小位移。worksheets(sheet1).range(c5:c10).cells(0,0).formularand()比如说这个代码到最后写入公式的单元格在b4
网上看的,要比比较好实用点。