1.EXCEL中按钮源码

EXCEL中按钮源码

       Worksheets("sheet1").Range("a5").Value = Worksheets("sheet1").Range("iv5").Value The源码n

       Worksheets("sheet2").Range("a5:fy5").Value = _

       Worksheets("sheet1").Range("a5:fy5").Value

       我发现你的数据是从5-的，所以这里面的源码vba财务源码免费常量“5-”可以用变量来代替，简化代码如下:

       dim i

       for i= 5 to

       If Worksheets("sheet1").Range("i1").Value = Worksheets("sheet1").Range("k7").Value And Worksheets("sheet1").Range("a" & i).Value = Worksheets("sheet1").Range("iv" & i).Value The源码st库的源码n

       Worksheets("sheet2").Range("a" & i & ":fy" & i).Value = _

       Worksheets("sheet1").Range("a" & i & ":fy" & i).value

       end if

       next i

       如果解决了你的问题，加点分吧。源码充值接口网站源码