简单的复制 插入 粘贴问题 ，希望能用vba解决

1e3e

jacky0202 发表于 2018-3-13 17:16
废了好多脑细胞以为看懂了，再看你的要求还是没看懂O(∩_∩)O哈哈~

表达能力欠佳让您费眼神了

1e3e

http://club.excelhome.net/thread-1384185-1-1.html
用户king37到处要收费帮忙答贴
原信息
需要的话，请将附件和要求发到francisco37@163.com且再将微信号18201853410加上便于收费和沟通，谢谢！

1e3e

来看的人多，帮助的人没有

zopey

Private Sub CommandButton1_Click()
Set dica = CreateObject("Scripting.Dictionary")
For i = 2 To 99
    If Cells(i, 24).Value > 0 Then dica(Cells(i, 24).Value) = i
Next
Set dicb = CreateObject("Scripting.Dictionary")
With Worksheets("空表")
For i = 2 To 444
    If .Cells(i, 24).Value > 0 Then dicb(.Cells(i, 24).Value) = i
Next
End With
Dim arr
For i = 57 To 1 Step -1
   If dica(i + 1) - dica(i) > 1 Then
      arr = Cells(dica(i) + 1, 1).Resize(dica(i + 1) - dica(i) - 1, 14)
      Sheets("空表").Rows(dicb(i) + 1).Resize(dica(i + 1) - dica(i) - 1).Insert (3)
      Sheets("空表").Cells(dicb(i) + 1, 1).Resize(dica(i + 1) - dica(i) - 1, 14) = arr
   End If
Next
End Sub

附件:   复件 问题.zip (198.33 KB, 下载次数: 27)

2018-3-21 11:19 上传

点击文件名下载附件

1e3e

zopey 发表于 2018-3-21 11:19
Private Sub CommandButton1_Click()
Set dica = CreateObject("Scripting.Dictionary")
For i = 2 To 99 ...

谢谢我试试看是不是我需要的，佩服会用字典的高手

1e3e

zopey 发表于 2018-3-21 11:19
Private Sub CommandButton1_Click()
Set dica = CreateObject("Scripting.Dictionary")
For i = 2 To 99 ...

大虾，有如下问题：
1、代码执行后，没有复制“某县某镇某村渠道防渗工程”的49万元！！！
2、请再看一下我新上传的附件，我需要将 a县 、b县、c县……k县等10个县全部复制粘贴到 空表中，3、删除没有明细项的统计项后代码运行出错，希望您有空帮我看看
注：表“f县”中 （一）搬迁安置b计划下面没有 白色的明细项目，所以就把“（一）搬迁安置b计划”删除了。

1e3e

zopey 发表于 2018-3-21 11:19
Private Sub CommandButton1_Click()
Set dica = CreateObject("Scripting.Dictionary")
For i = 2 To 99 ...

麻烦代码中加点注释可以吗？小白不太懂字典

1e3e

人呢？周末高手们都陪老婆去了吗？

zopey

问题1、代码执行后，没有复制“某县某镇某村渠道防渗工程”的49万元！！！
     空表 32标号附近的单元格 消除合并，即可插入、复制

问题2、需要将 a县 、b县、c县……k县等10个县
     Set dicb = CreateObject("Scripting.Dictionary")
With Worksheets("空表")
For i = 2 To 444
    If .Cells(i, 24).Value > 0 Then dicb(.Cells(i, 24).Value) = i
Next

代码中的444行可能不够用了，修改为更大的一数字，比如 999行
     

1e3e

zopey 发表于 2018-3-26 08:43
问题1、代码执行后，没有复制“某县某镇某村渠道防渗工程”的49万元！！！
     空表 32标号附近的单元格 ...

请看附件，
1、如果我将“”样表一“再复制一份改名为"样表二",（就是将样表一 和样表二的 数据汇总 至“空表”中）
再点“空表”中的“复制粘贴按钮” ，这时代码是正常的，得到投资总额为511万元。（因为“样表一”和"样表二"投资为255.5万元）
这种情况即为附件中"运行正确.xls"。
2、因为“（六）供电b计划  至  五、技能培训与职业教育b计划  ”没有投资额，所以有时会被删除，也就是说没有投资额部分就有可能被删除，这时删除后运行代码就不正确了，得到投资总额为608.88万元，正确投资应该为511万元。这种情况即为附件中"运行错误.xls"。
请问"运行错误.xls"如何修改成正确的？谢谢