各位大神，我想通过代码把 表1，由图1变成图2那样，但是运行时表格木有任何反应，...

spacex

• 1. Sub 档案页数()
     
  2. Dim nrow As Integer, count As Integer
     
  3. Sheet2.Cells(6, 5) = CStr(1)
     
  4. count = 1
     
  5. For nrow = 7 To 76
     
  6. If Sheet2.Cells(nrow, 4).Value > 1 Then Sheet2.Cells(nrow, 5).Value = CStr(count + 1) + "-" + CStr(count + Sheet2.Cells(nrow, 4).Value)
     
  7. If Sheet2.Cells(nrow, 4).Value < 2 Then Sheet2.Cells(nrow, 5).Value = CStr(count + 1)
     
  8. count = count + Sheet2.Cells(nrow, 4).Value
     
  9. Next
     
  10. End Sub
      

  复制代码
  各位大神，我想通过代码把 表1，由图1变成图2那样，但是运行时表格木有任何反应，还望大神们指教，并改良程序！
• 多谢！

• 图1

  

  图2

  1.zip (9.68 KB, 下载次数: 1)
  2017-1-4 21:11 上传

  点击文件名下载附件
  表1
  
  

spacex

大神快来指点一下菜鸟吧

spacex

1. Sub 档案页数()
   
2. Dim nrow As Integer, count As Integer, vData As Variant
   
3. vData = Sheets("管理类").UsedRange.Value
   
4. Sheets("管理类").Cells(6, 5) = CStr(1)
   
5. count = 1
   
6. For nrow = 7 To UBound(vData)
   
7. If Sheets("管理类").Cells(nrow, 4).Value > 1 Then Sheets("管理类").Cells(nrow, 5).Value = CStr(count + 1) + "-" + CStr(count + Sheets("管理类").Cells(nrow, 4).Value)
   
8. If Sheets("管理类").Cells(nrow, 4).Value < 2 Then Sheets("管理类").Cells(nrow, 5).Value = CStr(count + 1)
   
9. count = count + Sheets("管理类").Cells(nrow, 4).Value
   
10. Next
    
11. End Sub

复制代码

已调好