将表一的内容生成到表二，目测需要用到VBA

炼弧

我想实现将“录入表”中HKLPQST列中标黄的单元格自动生成到“生成表”对应的黄色单元格中，目前存在的一个问题是，“录入表”是从系统里面导出来的，行数是不固定的，比如，该表中，4-12行内容是变化的，其他行内容不变。现在有没有一个程序能实现：当我复制系统导出的表，然后粘贴到“录入表”中，“生成表”中能自动生成内容，并保证行数一致，如果“生成表”有新增的行（就是说当“生成表”中生成的内容导致其他非标黄的单元格变成空白），内容与“生成表”第一行保持一致（I列最后一格、AG—AJ列可以不用保持一致）。另外，“录入表”中KLPQST列，导出的数据均不是数值格式，能否同时实现生成的时候转换为数值呢？谢谢各位大神！！！

hfwufanhf2006

炼弧 发表于 2020-4-21 09:38
是的，第三点说的没错。但你理解有误，比如说，我下次再从系统导出的数据粘贴到录入表中有100行，我如何 ...

1、excel是没有边界的，你想要多少行就有多少。我想你大概是指100行后面的一些附加信息也存在不至于丢失，有2个办法：
    1）把那些附加信息重新挪到100行之后，复制过去也可以，重新录入（代码填充）也行，效果都是一样的；
    2）在附加信息之前插入行，插入的行数=100-现有行数；
2、你的具体目标我还是看不明白，只能提供点建议：
    1）上面的两个方法或许对初学者有点绕，所以我建议干脆先把区域清除干净，然后再重写数据。第一个表有多少行就重写多少行，这样反而简单，不需要为插行而烦恼。需要复制第一个表的用copy复制粘贴，要用值粘贴，因为你需要让文本数字变成数字，你把表2先设置成数字格式，然后值粘贴就能保持数字格式了，免除了文本转数字的麻烦；
    2）不需要复制的那些列内容，就用代码再填充一次，这个需要用for循环，100行就要循环100次；
    3）最后的那些附加信息也用代码重写一次，那些都是固定的信息，直接在代码中写入内容就是了，虽然感觉麻烦，毕竟是一次性的，不会很复杂；
         关于如何用代码写入，举个例子，比如要在101行的b列写入“制表人：”
             cells(101,2)="制表人:"                     '101表示101行，2表示第2列
         上面第2）条中循环写入不需要复制列的内容也是这么类似写；

hfwufanhf2006

你说了这么多，我看起来却很费劲：1、文本转换为数字好办，val函数就可以了；
2、你这句话我看不懂：“...贴到“录入表”中，“生成表”中能自动生成内容，并保证行数一致”，“自动生成”尤其让人迷惑；
3、我下载你文件，看你样本，就是简单的把“录入表”的4-12行复制到“生成表”的3-11行，行数错了1行，总行数是一样的，除了复制粘贴，也没看出特别的东西来：

炼弧

hfwufanhf2006 发表于 2020-4-20 10:37
你说了这么多，我看起来却很费劲：1、文本转换为数字好办，val函数就可以了；
2、你这句话我看不懂：“... ...

是的，第三点说的没错。但你理解有误，比如说，我下次再从系统导出的数据粘贴到录入表中有100行，我如何实现让生成表中相应的行数也自动变成100行？？

炼弧

hfwufanhf2006 发表于 2020-4-21 12:29
1、excel是没有边界的，你想要多少行就有多少。我想你大概是指100行后面的一些附加信息也存在不至于丢失 ...

我大概理解你的意思了，可能细节上有点出入，但还是提供了思路，我自己尝试弄下。谢谢