如何根据条件生成新数据行

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问如何根据条件生成新数据行，原来的数据是这样的：

代码	类别	信息发布年份
000001	1	2007
000001	2	2010
000004	0	2006
000004	1	2009

每个公司的类别只有到第二次信息发布才发生变化，我要把中间没有发生变化的年份和类别补上，如改成下表，应该怎样写命令？谢谢！

代码	类别	信息发布年份
000001	1	2007
000001	1	2008
000001	1	2009
000001	2	2010
000001	2	2011
000001	2	2012
000001	2	2013
000004	0	2006
000004	0	2007
000004	0	2008
000004	1	2009
000004	1	2010
000004	1	2011
000004	1	2012
000004	1	2013

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：信息发布 如何

高手请现身呀！

如果源数据在A1，可尝试如下代码：
Sub a()
    Range("A1").CurrentRegion.Copy
    Range("I1").Select
    ActiveSheet.Paste
For i = 3 To 1048576
    If i > WorksheetFunction.CountA(Range("K:K")) Then Exit For
    j = 0
    If Range("I" & i) = Range("I" & i - 1) And Range("J" & i) > Range("J" & i - 1) And Range("K" & i) = Range("K" & i - 1) + 1 Then j = 1
    If (Range("I" & i) = Range("I" & i - 1) And Range("K" & i) <> Range("K" & i - 1) And j <> 1 And Range("I" & i + 1) <> "") _
    Or (Range("I" & i) > Range("I" & i - 1) And Range("K" & i - 1) < 2013) Then
        Range("I" & i & ":K" & i).Select
        Selection.Insert Shift:=xlDown
        Range("I" & i) = Range("I" & i - 1)
        Range("J" & i) = Range("J" & i - 1)
        Range("K" & i) = Range("K" & i - 1) + 1
    ElseIf Range("I" & i + 1) = "" And Range("K" & i) < 2013 Then
        Range("I" & i + 1) = Range("I" & i)
        Range("J" & i + 1) = Range("J" & i)
        Range("K" & i + 1) = Range("K" & i) + 1
    End If
Next
End Sub

非常感谢！