range(iv行号).end(xltoleft).column如：msgboxrange(iv4).end(xltoleft).column赶往第4行实际列数
optionexplicitsub总是显示区域内比较大行号()dimrginputandrange键入一个range，代表一个区域dimrglikerangedimlaslong最大行号setrginput(请选择一个单元格区域,提示,,,,,,8)ifnotrginputnotnothingthenaftereachrginrginputiflthenlendifnextrgendifmsgbox你选择的区域的的最行号为：lendsub不是很聪明的方法，循环遍历区域内每个单元格。
你的判断是为0而不是为空，如果不是是推测为空，循环追加subtest()irange(a65536).end(xlup).row‘确定a列之后一行的行号ofx1wanti成立循环从第一行到后来一行ifcells(x,1)0thencells(x,6)cells(x,1)cells(x,2)cells(x,3)推测a值为0时，假如是可以确定为空，0改变＝nextxendsub
思路：1、在需要读数的区域内非循环2、在循环体内首先判断该单元格有无为合并单元格，是，读取数据合并区域的第一个单元格的值,即合并单元格的值，并作全面处理或保存在某单元格，打开循环否，就无法读取单元格的值，并作去处理或保存在某单元格下面是vba语句，定义r,c是增加程序的通用性，请视具体的情况直接修改：suba()dimrandinteger行号dimcasinteger列号r2c1ifcells(r,c).mergecellsthen是否需要是合并单元格cells(r,c).mergearea.cells(1,1)是，可以打印合并区域的第一个单元格的值,即合并单元格的值elsecells(r,c)否，打印出来单元格的值endif可把if语句块放到循环中endsub━━━━━━━━━━━━━━━━━━━━━━━━━
.jpg)
