[已解决]求助为什么从Sheet1表提取数据到Sheet2表指定区域内不能实现。

qinhuan66

求助为什么从Sheet1表提取数据到Sheet2表指定区域内不能实现。
求助.rar (28.24 KB, 下载次数: 15)

2014-11-2 08:30 上传

点击文件名下载附件




代码：

1. Sub xx()
   
2. Dim i%, j%, k%
   
3. k = 5
   
4. For i = 5 To Worksheets("住院报销登记").[a4].End(xlDown).Row
   
5. If [g3] >= Worksheets("住院报销登记").Cells(i, 7) And Worksheets("住院报销登记").Cells(i, 7) >= [f3] Then
   
6. For j = 2 To 7
   
7. Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
   
8. Next
   
9. k = k + 1
   
10. End If
    
11. Next
    
12. End Sub

复制代码

执行代码的效果如下图：红圈不在黄色区域内

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-2 09:12

1. Sub xx()
   
2.     Dim i%, j%, k%
   
3.     k = 4
   
4.     For i = 5 To Worksheets("住院报销登记").[a4].End(xlDown).Row
   
5.     If n = 35 Then n = 0: x = x + 1: k = 40 * x + 4
   
6.         If [g3] >= Worksheets("住院报销登记").Cells(i, 7) And Worksheets("住院报销登记").Cells(i, 7) >= [f3] Then
   
7.             n = n + 1: k = k + 1
   
8.             For j = 2 To 7
   
9.                 Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
   
10.             Next
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码

楼主试试

跳转到最佳答案楼层

qh8600

1. Sub xx()
   
2.     Dim i%, j%, k%
   
3.     k = 4
   
4.     For i = 5 To Worksheets("住院报销登记").[a4].End(xlDown).Row
   
5.     If n = 35 Then n = 0: x = x + 1: k = 40 * x + 4
   
6.         If [g3] >= Worksheets("住院报销登记").Cells(i, 7) And Worksheets("住院报销登记").Cells(i, 7) >= [f3] Then
   
7.             n = n + 1: k = k + 1
   
8.             For j = 2 To 7
   
9.                 Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
   
10.             Next
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码

楼主试试

Select

qh8600好努力啊，大清早就来答题

我以为qh8600是个什么型号的东西，没想到一百度，就能看到你的ID