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

zhoumin1878 · 发表于 2021-2-6 22:50

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

3190496160 · 发表于 2021-2-7 13:17

本帖最后由 3190496160 于 2021-2-7 13:19 编辑

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

zhoumin1878 · 发表于 2021-2-7 13:58

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

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

zhoumin1878 · 发表于 2021-2-7 13:59

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

3190496160 · 发表于 2021-2-7 15:10

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

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

3190496160 · 发表于 2021-2-7 15:52

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 · 发表于 2021-2-7 15:53

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

3190496160 · 发表于 2021-2-7 15:54

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

zhoumin1878 · 发表于 2021-2-7 17:06

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

感谢，感谢

，我先消化消化

		自动登录	找回密码
密码			免费注册