我学了假VBA？删除空行并复制数据都搞不定

viaj

需求：
复制Sheet1的F列的被选中的单元格 （例如F2:F8），
粘贴到Sheet2的B列；
删除Sheet2的B列的空单元格，下面的单元格往上移，
复制Sheet2的B列的所有非空单元格，（复制的数据用于粘贴到其他软件中。）


自己写了代码，但有几个问题，本想把代码贴上来，但细想下，估计反而添乱，还是直接请教了。

工作簿1.rar (7.31 KB, 下载次数: 7)

2019-8-17 20:11 上传

点击文件名下载附件

changhong8

代码如下
Sub 啊啊啊()
Dim d As Object, arr, i%
Set d = CreateObject("scripting.dictionary")
Sheets(1).Activate
arr = Range("F2:f" & [f65536].End(xlUp).Row)
For i = 1 To UBound(arr)
    If Len(arr(i, 1)) > 0 Then d(arr(i, 1)) = ""
Next
Sheets(2).Activate
[b:b].Clear
If d.Count > 0 Then
    [b1].Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
    Range([b1], [b1].End(xlDown)).Copy
End If
End Sub

viaj

changhong8 发表于 2019-8-17 20:20
代码如下
Sub 啊啊啊()
Dim d As Object, arr, i%

谢谢！出手快而准啊，效果完美！这代码比我想象的难得多！可能我原来把事情想简单了？

能否再请教2个问题：
1. 如果不要处理Sheet1 F列的所有数据，只要处理F列被选中的单元格的数据，应如何改代码？
2. Sheet(1).Activate 与Sheet(1).Select 有何区别？

谢谢！

lsc900707

vba 还有真假，头一次听说！

changhong8

viaj 发表于 2019-8-17 20:44
谢谢！出手快而准啊，效果完美！这代码比我想象的难得多！可能我原来把事情想简单了？

能否再请教2个 ...

1、arr=....那句改成arr=selection
2、ACTIVATE是激活，select是选中，可以同时选中多个工作表，但是只有一个是激活状态的，一般情况下select后面不加false参数的时候是一样的

bop

Sub x()
Dim i As Integer

Sheet1.Range("f2:f23").Copy Sheet3.Range("a1")

For i = 22 To 1 Step -1
    If Sheet3.Range("a" & i) = "" Then
        Sheet3.Range("a" & i).Delete
    End If
Next

End Sub



哈哈只会简单的循环单元格，楼上d(arr(i, 1)) = ""这里是什么意思呢？

killq

viaj 发表于 2019-8-17 20:44
谢谢！出手快而准啊，效果完美！这代码比我想象的难得多！可能我原来把事情想简单了？

能否再请教2个 ...

Sub test()
    Dim arr, nrow, i, j, brr
    arr = Selection.Value
    ' 自己确保选中了想选中的内容，且处于activate状态（只处理单列，未考虑多列或多区域）
    If VBA.IsEmpty(arr) Then Exit Sub     ''''增加一条，防止空内容

    nrow = UBound(arr)
    ReDim brr(1 To nrow)
    j = 1
    For i = 1 To nrow
        If arr(i, 1) <> "" Then brr(j) = arr(i, 1): j = j + 1
    Next i
    With Sheet2
        .Columns("B:B").ClearContents
        .Range("b1").Resize(nrow, 1) = Application.Transpose(brr)
    End With
End Sub

maditate

只能理解为楼主“假学了真VBA”

李四429

changhong8 发表于 2019-8-17 20:20
代码如下
Sub 啊啊啊()
Dim d As Object, arr, i%

Len(arr(i, 1)) > 0 Then d(arr(i, 1)) = ""
结果是对了，我是初学者，为什么单元格不是空的时候反而把 d(arr(i, 1)) =空了？我们不是要找非空值，后来？请指教

killq

李四429 发表于 2019-8-17 21:42
Len(arr(i, 1)) > 0 Then d(arr(i, 1)) = ""
结果是对了，我是初学者，为什么单元格不是空的时候反而把 ...

如果你愿意，后面你可以写任意内容，除了占用系统资源外对功能没有任何影响。