将原附件中的代码改为 private sub worksheet_change(byval target as range)if target.row=1 and target.column(range("a"&target.row&":d"&target.row))("a1:d1")sheets...
用宏可简单解决 sub jolin()‘函数开始 k=1’你的字母从哪行开始输出 for i=7 to 9‘循环实现字母读取 for j=1 to cells(i,8).value’循环实现字母输出次数 cells(k,1).value=cells(i,7).value‘输出 k=k+2’+2是为了你说的空一行。如果不空,直接k=k+1 next j next i end sub 程序结束
sub summ() dim nrow as integer dim nn as integer dim i as integer dim sumall as single dim nplus as integer dim sumplus as single dim temp as single dim st as long dim en as long i=2 temp=0 st=range("...