[已解决]修改复制位置代码

没事

根据条件提取数据2.zip (15.81 KB, 下载次数: 6)

2013-6-27 14:06 上传

点击文件名下载附件
生成的数据下移三行，这样的代码如何改，谢谢大家！

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-27 14:47

1. Private Sub CommandButton1_Click()    Sheet1.Range("d2:H65536").ClearContents
   
2.     For i = 1 To ListView1.ListItems.Count
   
3.         If ListView1.ListItems(i).SubItems(3) <> "" Then
   
4.             If i = 1 Then
   
5.                 Sheet1.Range("d65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(1)
   
6.                 Sheet1.Range("e65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(2)
   
7.                 Sheet1.Range("f65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(3)
   
8.                 Sheet1.Range("h65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(4)
   
9.             Else
   
10.                 Sheet1.Range("d65536").End(3)(2) = ListView1.ListItems(i).SubItems(1)
    
11.                 Sheet1.Range("e65536").End(3)(2) = ListView1.ListItems(i).SubItems(2)
    
12.                 Sheet1.Range("f65536").End(3)(2) = ListView1.ListItems(i).SubItems(3)
    
13.                 Sheet1.Range("h65536").End(3)(2) = ListView1.ListItems(i).SubItems(4)
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Private Sub CommandButton1_Click()    Sheet1.Range("d2:H65536").ClearContents
   
2.     For i = 1 To ListView1.ListItems.Count
   
3.     If ListView1.ListItems(i).SubItems(3) <> "" Then
   
4.        Sheet1.Range("d65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(1)
   
5.        Sheet1.Range("e65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(2)
   
6.        Sheet1.Range("f65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(3)
   
7.        Sheet1.Range("h65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(4)
   
8.     End If
   
9.     Next
   
10. End Sub

复制代码

hwc2ycy

定位位置后用OFFSET(3)，得到的就是偏移了三行的位置 。

没事

那么的帅 发表于 2013-6-27 14:18

谢谢，是整体下移三行，不是下移后各行又拉开了三行。

那么的帅

1. Private Sub CommandButton1_Click()    Sheet1.Range("d2:H65536").ClearContents
   
2.     For i = 1 To ListView1.ListItems.Count
   
3.         If ListView1.ListItems(i).SubItems(3) <> "" Then
   
4.             If i = 1 Then
   
5.                 Sheet1.Range("d65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(1)
   
6.                 Sheet1.Range("e65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(2)
   
7.                 Sheet1.Range("f65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(3)
   
8.                 Sheet1.Range("h65536").End(3)(2).Offset(3) = ListView1.ListItems(i).SubItems(4)
   
9.             Else
   
10.                 Sheet1.Range("d65536").End(3)(2) = ListView1.ListItems(i).SubItems(1)
    
11.                 Sheet1.Range("e65536").End(3)(2) = ListView1.ListItems(i).SubItems(2)
    
12.                 Sheet1.Range("f65536").End(3)(2) = ListView1.ListItems(i).SubItems(3)
    
13.                 Sheet1.Range("h65536").End(3)(2) = ListView1.ListItems(i).SubItems(4)
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub

复制代码