VBA选择性粘贴如何忽略空白单元格

zhoumin1878

“数据整理”表中预留了较多行的公式，因此在“整理后数据”表中用VBA进行数值粘贴时，将预留公式中的空白行也粘贴过来，为后续操作带来不便，例如数据透视表中出现空白单元格，影响数据分组操作，也无法用语句正确引用最后一行单元格数据。
请各位帮忙

3190496160

既然用vba了，那你所谓的数据整理  工作表还要他干嘛呢？直接用vba代码一步到位不就行了吗？
也就是，直接用vba代码来完整你目前公式的效果不就行了吗？？包括你的透视表，无非就是一个根据日期汇总收入，支出的问题呀，也完全可以用vba代码来实现这样的效果的呀

zhoumin1878

3190496160 发表于 2021-2-7 13:17
既然用vba了，那你所谓的数据整理  工作表还要他干嘛呢？直接用vba代码一步到位不就行了吗？
也就是，直接 ...

谢谢指教，我这样做的原因有三个， 一是数据源是从网银系统中下载下来的，格式不能直接用，二是还想要呈现数据的全貌，第三点最主要，VBA我是刚入门，完全是个菜鸟

zhoumin1878

如您时间允许，还请不吝赐教

3190496160

zhoumin1878 发表于 2021-2-7 13:58
谢谢指教，我这样做的原因有三个， 一是数据源是从网银系统中下载下来的，格式不能直接用，二是还想要呈 ...

你没有完全理解我说的意思。呵呵

3190496160

Private Sub CommandButton1_Click()
d.RemoveAll
ReDim br(1 To UBound(ar), 1 To 3)
If ComboBox1.Text = "" Then MsgBox "请输入汇总日期！": Exit Sub
If ComboBox1.Text = "全部" Then
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            rq = Format(ar(i, 1), "yyyy/m/d")
             t = d(rq)
             If t = "" Then
                k = k + 1
                d(rq) = k
                t = k
                br(k, 1) = rq
            End If
            If Trim(ar(i, 11)) = "贷" Then
                br(t, 2) = br(t, 2) + Val(ar(i, 6))
            ElseIf Trim(ar(i, 11)) = "借" Then
                br(t, 3) = br(t, 3) + Val(ar(i, 6))
            End If
        End If
    Next i
ElseIf IsDate(ComboBox1.Text) Then
    tj = ComboBox1.Text
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            rq = Format(ar(i, 1), "yyyy/m/d")
            If DateValue(rq) = DateValue(tj) Then
                 t = d(rq)
                 If t = "" Then
                    k = k + 1
                    d(rq) = k
                    t = k
                    br(k, 1) = rq
                End If
                If Trim(ar(i, 11)) = "贷" Then
                    br(t, 2) = br(t, 2) + Val(ar(i, 6))
                ElseIf Trim(ar(i, 11)) = "借" Then
                    br(t, 3) = br(t, 3) + Val(ar(i, 6))
                End If
            End If
        End If
    Next i
End If
With Sheets("透视表1")
    .UsedRange.Offset(3) = Empty
    .[a4].Resize(k, 3) = br
    .Cells(k + 4, 1) = "总计"
    For j = 2 To 3
        .Cells(k + 4, j) = Application.Sum(.Range(.Cells(4, j), .Cells(k + 3, j)))
    Next j
End With
MsgBox "ok!"
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub UserForm_Initialize()
Set d = CreateObject("scripting.dictionary")
ar = Sheets("原始数据").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To 1)
kk = 1
br(kk, 1) = "全部"
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        rq = Format(ar(i, 1), "yyyy/m/d")
         t = d(rq)
         If t = "" Then
            kk = kk + 1
            d(rq) = kk
            t = kk
            br(kk, 1) = rq
        End If
    End If
Next i
ComboBox1.List = br
End Sub

3190496160

VBA选择性粘贴如何忽略空白单元格.rar (213.96 KB, 下载次数: 7)

2021-2-7 15:53 上传

点击文件名下载附件

3190496160

直接从原始数据中取数，生成透视表效果，供参考

zhoumin1878

3190496160 发表于 2021-2-7 15:54
直接从原始数据中取数，生成透视表效果，供参考

感谢，感谢，我先消化消化