与标准表的行进行对比，然后把缺失的行行插入

flowermeng · 发表于 2020-1-19 12:33

求助各位大大。现在单位项目审核。有一个标准的项目代码表。各单位提交的项目代码或多或少的都会有缺失。想把单位代码表与标准项目代码对照，单位的缺失项目代码在相同位置插入相应行（最后单位的行数应该和标准代码表的行数相等）。不知是否可以实现？衷心感谢能够提供帮助的老师们，顺祝新年快乐，万事如意！

孙旭白 · 发表于 2020-1-19 15:32

Sub ttt()
Dim rng As Range
irow = Sheets("标准代码表").Range("a65536").End(xlUp).Row
For i = 7 To irow
If Sheets("单位代码表").Range("a" & i) <> Sheets("标准代码表").Range("a" & i) And Sheets("单位代码表").Range("a" & i) <> "" Then
Sheets("单位代码表").Rows(i).Insert
End If
Next
End Sub

是插入空行这个意思吗？

蓝桥玄霜 · 发表于 2020-1-19 16:59

插入的代码：

flowermeng · 发表于 2020-1-19 23:19

孙旭白发表于 2020-1-19 15:32
Sub ttt()
Dim rng As Range
irow = Sheets("标准代码表").Range("a65536").End(xlUp).Row

谢谢大大，是插空行。后面一些表格加工自己会了。就是这个语句逻辑开始没想出来。

flowermeng · 发表于 2020-1-19 23:22

蓝桥玄霜发表于 2020-1-19 16:59
插入的代码：

谢谢大神，看起来好像是字典。。VBA小白不是很懂。另外刚来论坛，大神为啥要用图片呢，很难COPY。是有啥讲究么

青春の火焰 · 发表于 2020-1-20 00:52

感谢，学习

jeff_ps2009 · 发表于 2020-1-20 18:39

flowermeng 发表于 2020-1-19 23:22
谢谢大神，看起来好像是字典。。VBA小白不是很懂。另外刚来论坛，大神为啥要用图片呢，很难COPY。是有啥 ...

我想蓝版的用心在于，就算你不会自己写代码，至少在用别的代码的时候不是单纯的复制粘贴，好歹自己动手敲一敲~~

renkangjizhen · 发表于 2020-1-21 10:02

If Sheets("单位代码表").Range("a" & i) <> Sheets("标准代码表").Range("a" & i) And Sheets("单位代码表").Range("a" & i) <> "" Then
Sheets("单位代码表").Rows(i).Insert
Sheets("单位代码表").cells(i,1)=Sheets("标准代码表").cells(i,1)
End If

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

[求助] 与标准表的行进行对比，然后把缺失的行行插入