sub m ()
row_ = ActiveCell.Row '获得光标所在行的行号
col_ = ActiveCell.Column '获得光标所在行的列号
val_ = Cells(row_, col_) '这个就是所在行的值了
end sub
如果需要知道相同行其它列的数据,可以这样:
val_ 1= Cells(row_, col_+2)
val_ 2= Cells(row_, col_+3)
看了你的表格,是否:点选如23那个,下面就对应填上数值吧
如果这样,就要把val_换成下面那个区域,如:range(cells(30,3),cells(30,35),,这里假定是第30行的第三列到30行的第35列。