[已解决]这个VBA综合C列名字错在哪里

laoau138

这个VBA综合C列名字错在哪里

最佳答案

月排行榜 / 总排行榜

wenzili

2017-3-12 21:26

Public Sub dd()
Dim alldata As Variant
Dim i As Integer
Dim n As Integer
Dim x As Integer
x = 1
alldata = Range("a2:b8").Value

For i = 1 To UBound(alldata, 2)
    For n = 1 To UBound(alldata, 1)
        If alldata(n, i) <> "" Then
   
            Range("c1").Offset(x, 0).Value = alldata(n, i)
            x = x + 1
        End If
    Next
Next
End Sub
不太理解你的用意？其实简单的拷贝是否可合适？用End(xlDown)去判断行尾。

跳转到最佳答案楼层

砂海

Range("c2:c" & x) = Range("a2:a" & x).Value
Range("c" & x + 1).Resize(k - 1, 1) = Range("b2:b" & k).Value

-------------------------------------
Union(Range("g2:g" & x), Range("h2:h" & k)) = Union(Range("a2:a" & x), Range("b2:b" & k)).Value
这样 两个区域 的大小 与形状相同 , 可以写入 不出错 , 但不是你要的结果

想一次写入 , 用数组 整理数据 , 完成后 , 一次性写入

laoau138

砂海 发表于 2017-3-11 17:41
Range("c2:c" & x) = Range("a2:a" & x).Value
Range("c" & x + 1).Resize(k - 1, 1) = Range("b2:b" & k) ...

如何用数组

wenzili

Public Sub dd()
Dim alldata As Variant
Dim i As Integer
Dim n As Integer
Dim x As Integer
x = 1
alldata = Range("a2:b8").Value

For i = 1 To UBound(alldata, 2)
    For n = 1 To UBound(alldata, 1)
        If alldata(n, i) <> "" Then
   
            Range("c1").Offset(x, 0).Value = alldata(n, i)
            x = x + 1
        End If
    Next
Next
End Sub
不太理解你的用意？其实简单的拷贝是否可合适？用End(xlDown)去判断行尾。

laoau138

wenzili 发表于 2017-3-12 21:26
Public Sub dd()
Dim alldata As Variant
Dim i As Integer

果然高高手，

laoau138

wenzili 发表于 2017-3-12 21:26
Public Sub dd()
Dim alldata As Variant
Dim i As Integer

http://www.excelpx.com/thread-428404-1-1.html

用VBA删除工作表中第3列区域内含有累计所在行