利用VBA宏，对符合条件，对整行有选择的复制到当前表格中

蓝桥玄霜

Zhjonhse 发表于 2017-7-22 15:07
老师，您好！
运行有点问题。如下：End With

请仔细核对代码的每一个字符。
抄写代码是学习编程的必要过程。
编程需要仔细、严谨，不能马马虎虎。
或者上传出错的附件看看。

Zhjonhse

蓝桥玄霜 发表于 2017-7-23 08:11
请仔细核对代码的每一个字符。
抄写代码是学习编程的必要过程。
编程需要仔细、严谨，不能马马虎虎。

老师，您好！
你说的对，很明白抄写代码的意图。也正因为出错，才可以学习到东东，刚才也学习了你的关于DICTIONARY的用法，我再去学习/校正下代码。不过，用于上传附件，已经通过了，但应用于我的真正的表格时，到CELLS这儿就出#13错误，我怀疑是现在这个源数据库的事儿，我再看看啊。

谢谢老师，给我入门机会！

Zhjonhse

Zhjonhse 发表于 2017-7-23 10:22
老师，您好！
你说的对，很明白抄写代码的意图。也正因为出错，才可以学习到东东，刚才也学习了你的关于 ...

老师，您好！

我又手抄了一遍代码，并与原来的对比过了，没有问题。现在又遇到新问题了，参考附件内，原来是到CELLS报错，现在是上面了。按照公式在昨天提供的工作表中没有问题，我想套用到我的数据库里，就出问题了。我个人认为，问题可能是源数据表中，目前，附件中的表格中，有序号、日期、文本、时间和空格，并且之中还有SUM求和的小公式，公式还好，去掉后，在新表中很容易添加，但其它格式的变了，就感觉复杂了。

由于这个周末想把它搞定，为这个过半百了还得再花太多时间，有些吃力，还是请老师指点下。

注：附件内有公式报错图表，并且表头已经全去了，感觉与这个没关系。

感谢老师多批评与指导！

Zhjonhse

还是希望老师百忙之中指导下。万分感谢！