[已解决]变量j没有变化（等于固定值），如何修改。

cunfu2010

如题，请帮忙看看

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-2-7 16:21

Sub aa()
    Dim arr(), k '定义arr()
    m = Range("A65536").End(xlUp).Row
    For i = 1 To m
        j = Cells(i, Columns.Count).End(xlToLeft).Column
        k = k + 1
        ReDim Preserve arr(1 To k)
        If Cells(i, 1) <> "" Then
            arr(k) = j           '将变量j的值赋值给数组arr
        End If
    Next
    Sheet2.Cells(1, 1).Resize(UBound(arr)) = Application.Transpose(arr) '在最后写入单元格
End Sub

跳转到最佳答案楼层

苏子龙

Sub aa()
    Dim arr(), k '定义arr()
    m = Range("A65536").End(xlUp).Row
    For i = 1 To m
        j = Cells(i, Columns.Count).End(xlToLeft).Column
        k = k + 1
        ReDim Preserve arr(1 To k)
        If Cells(i, 1) <> "" Then
            arr(k) = j           '将变量j的值赋值给数组arr
        End If
    Next
    Sheet2.Cells(1, 1).Resize(UBound(arr)) = Application.Transpose(arr) '在最后写入单元格
End Sub

cunfu2010

苏子龙 发表于 2017-2-7 16:21
Sub aa()
    Dim arr(), k '定义arr()
    m = Range("A65536").End(xlUp).Row

谢谢！数组总是学不太明白。

cunfu2010

苏子龙 发表于 2017-2-7 16:21
Sub aa()
    Dim arr(), k '定义arr()
    m = Range("A65536").End(xlUp).Row

谢谢，输入列标的问题解决了。另外，请教一个问题：UsedRange.Columns.Count可以取得工作表最大的非空列号，那最大的非空列标如何取得