作者: soyoso (我是耀宗) 2018-04-23 11:08:00
巢状循环于列、栏;取得列最后一笔有值的列号range.end().row。字串累加连接,变量 & range.offset(),列栏的偏移值以巢状循环的变动值带入断行可以chr(10)或vbcrlf;中间分隔符号一样以&来连接最后以msgbox带出该字串变量二个msg写一个就好,msg = msg & vbcrlf & range("a"&j)..写二个的话,头一个msg = range("a"&j)...改为msg = msg &range("a" &j)...