Excel表格设置宏数据提取

选中的单元格行号可以用ActiveCell.Row获取，比如用xh存这个行号，xh=ActiveCell.Row。然后想跳到D列同一行的单元格，可以用Range(D + LTrim(Str(xh))).Select，搞定~