[已解决]请各位老师帮忙编写跳转代码！！

平安平安

2007局行政处收费.rar (20.27 KB, 下载次数: 9)

2016-10-30 12:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

tinytiger

2016-11-8 20:35

Private Sub CommandButton1_Click()
  Dim a&, i&
  a = Range("A65536").End(xlUp).Row
  For i = 2 To a Step 11
    Cells(i, 4) = Cells(2, 4)
    Cells(i, 7) = Cells(2, 7)
    Cells(i + 2, 2) = Cells(i + 2, 3)
    Cells(i + 2, 3).ClearContents
    Cells(i + 5, 2) = Cells(i + 5, 4)
    Cells(i + 5, 4).ClearContents
  Next
End Sub

跳转到最佳答案楼层

平安平安

请各人位老师出手

tinytiger

你看行不？

tinytiger

Private Sub CommandButton1_Click()
  Dim a&, i&
  a = Range("A65536").End(xlUp).Row
  For i = 2 To a Step 11
    Cells(i, 4) = Cells(2, 4)
    Cells(i, 7) = Cells(2, 7)
    Cells(i + 2, 2) = Cells(i + 2, 3)
    Cells(i + 2, 3).ClearContents
    Cells(i + 5, 2) = Cells(i + 5, 4)
    Cells(i + 5, 4).ClearContents
  Next
End Sub

tinytiger

带附件的帖子怎么总被自动隐藏？