[已解决]求数据表一定的区域中每隔一行取最后一个值的VBA代码

syt188702

求数据表一定的区域中每隔一行取最后一个值的VBA代码

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-15 07:35

回复 syt188702 的帖子

点击 Q1 上的 提取数据 按钮，可以完成。 提取数据(VBA).rar (207.71 KB, 下载次数: 3)

2011-8-15 07:34 上传

点击文件名下载附件

1. 
   
2. Sub aa()
   
3.     With Sheets("录入表")
   
4.     For i = 2 To 8 Step 2
   
5.        s = ""
   
6.         For j = 6 To 15
   
7.             If .Cells(i, j) <> "" Then
   
8.                 s = .Cells(i, j)
   
9.             End If
   
10.         Next j
    
11.      .Cells(i, 17) = s
    
12.      Next i
    
13.     End With
    
14. End Sub
    
15. 
    

复制代码

跳转到最佳答案楼层

那么的帅

回复 syt188702 的帖子

点击 Q1 上的 提取数据 按钮，可以完成。 提取数据(VBA).rar (207.71 KB, 下载次数: 3)

2011-8-15 07:34 上传

点击文件名下载附件

1. 
   
2. Sub aa()
   
3.     With Sheets("录入表")
   
4.     For i = 2 To 8 Step 2
   
5.        s = ""
   
6.         For j = 6 To 15
   
7.             If .Cells(i, j) <> "" Then
   
8.                 s = .Cells(i, j)
   
9.             End If
   
10.         Next j
    
11.      .Cells(i, 17) = s
    
12.      Next i
    
13.     End With
    
14. End Sub
    
15. 
    

复制代码

syt188702

回复 那么的帅 的帖子

谢谢老师，是想要的结果，能否解释一下代码吗，本人初入门，谢谢

syt188702

回复 那么的帅 的帖子

那么的帅老师，能否继续进行吗