[已解决]求助，求偶数单元格值

可爱的小鱼

求助，求偶数单元格值

最佳答案

月排行榜 / 总排行榜

FF7

2012-9-7 07:16

试试：

1. Sub xx()
   
2.     Dim i As Long, m As Long, n As Long
   
3.     Dim arr() As String
   
4.    
   
5.     m = [h65536].End(3).Row + 1   '寻找H列最后一个空单元格
   
6.     For i = 6 To 230 Step 2       '向上寻找第6,8,10...230个单元格
   
7.         If m - i > 0 Then n = n + 1 Else Exit For   '判断有数据的单元格是否少于236个
   
8.         ReDim Preserve arr(1 To 1, 1 To n) As String  '对数组进行无损扩展
   
9.         arr(1, n) = Cells(m - i, "H")  '对数组进行赋值
   
10.     Next
    
11.     [i1:DQ1].ClearContents     '先将i1到DQ1单元格的数据清空(第230个单元格数据会填在DQ列)
    
12.     [i1].Resize(1, n) = arr    '将arr数据从I1列开始，依次填入到第一行
    
13.    
    
14. End Sub

复制代码

跳转到最佳答案楼层

可爱的小鱼

再顶下有老师还在不

FF7

试试：

1. Sub xx()
   
2.     Dim i As Long, m As Long, n As Long
   
3.     Dim arr() As String
   
4.    
   
5.     m = [h65536].End(3).Row + 1   '寻找H列最后一个空单元格
   
6.     For i = 6 To 230 Step 2       '向上寻找第6,8,10...230个单元格
   
7.         If m - i > 0 Then n = n + 1 Else Exit For   '判断有数据的单元格是否少于236个
   
8.         ReDim Preserve arr(1 To 1, 1 To n) As String  '对数组进行无损扩展
   
9.         arr(1, n) = Cells(m - i, "H")  '对数组进行赋值
   
10.     Next
    
11.     [i1:DQ1].ClearContents     '先将i1到DQ1单元格的数据清空(第230个单元格数据会填在DQ列)
    
12.     [i1].Resize(1, n) = arr    '将arr数据从I1列开始，依次填入到第一行
    
13.    
    
14. End Sub

复制代码

774572743

Sub ceshi()
    Dim x As Integer, y As Integer
    Dim ar As String
    y = 9
    For x = -5 To -173 Step -2
        ar = Range("h65536").End(xlUp).Offset(x, 0).Value
       Cells(1, y).Value = ar
       y = y + 1
    Next x
End Sub
我不懂数组，就用最笨的办法做的。让你见笑了，你试试吧！