try，privatesubworksheet_selectionchang
在c列前添加一个空白列，原c列右移columns(3)。
vba中find函数的返回值为空时，应使用null作为返回值赋给相应的元素，避免报错。
代码和注释如下:submain()xrang
sub尹达()复制:1endsub这是打印当前工作表。如果打印当前工作簿中的工作表(1，1，.t)带参数的打印参数描述:共有四个参数:1-value:当前工作簿中打印的起始工作表号(默认为1)，2-value:当前工作簿中打印的结束工作表号(默认为last)，3-value:打印份数(默认为1)，4-逻辑值:预览打印或直接打印:。预览打印。f.-直接打印(默认。f.)()参数描述:共有八个参数:1-value:起始页码；如果省略，则默认为起始位置参数2-value:结束页码；如果省略，则默认为末页参数3-值:打印份数；如果省略，默认为1份；4-逻辑值:预览与否；如果省略，则默认为直接打印(。省略的话就是默认的打印机参数6-逻辑值:是否输出到文件；如果省略，则为默认值no(.f.)；如果。t.选中，参数8为空，excel提示输入文件名参数7-逻辑值:输出类型；如果省略，则为默认值(.t.)，以逐个打印；否则，它将逐页打印参数8-字符值:当参数6为。t.myprinter，。f。t.，，)打印1页到3页，打印6份，用我的打印机打印，一张张打印。
.jpg)
