请教高手一Excel函数问题,在线等!!
我现有三组数据,分别是10001顺延10000个,20001顺延10000个,30001顺延10000个,现在我想新合成一组数据达到以下要求如10001100022000...
我现有三组数据,分别是10001顺延10000个,20001顺延10000个,30001顺延10000个,现在我想新合成一组数据达到以下要求
如10001 10002 20001 20002 30001 30002 10003 10004 20003 20004 30003 30004..............(每次每组选两个用)一直向下推,一直把这3个一万排完,也就是得到一个新的30000个的数据。
当然我这里所说的三组数据只是我随便举便说的,不用找其中规律,我要一个方法而已,谢谢,请高手回答满意后,再加后,谢!!哈,反正我想了想搞不搞。。。。哭,,,,
我想第一位是误解我意思了,我要得到的效果是10001,10002,20001,20002,30001,30002,.......这些都是在一列的数据,他们加起来后为30000个数据 展开
如10001 10002 20001 20002 30001 30002 10003 10004 20003 20004 30003 30004..............(每次每组选两个用)一直向下推,一直把这3个一万排完,也就是得到一个新的30000个的数据。
当然我这里所说的三组数据只是我随便举便说的,不用找其中规律,我要一个方法而已,谢谢,请高手回答满意后,再加后,谢!!哈,反正我想了想搞不搞。。。。哭,,,,
我想第一位是误解我意思了,我要得到的效果是10001,10002,20001,20002,30001,30002,.......这些都是在一列的数据,他们加起来后为30000个数据 展开
6个回答
展开全部
除了函数就是VBA了
我假设你的数据在ABC三列.从A1:A10000,B1:B10000,C1:C10000
按下ALT+F11
插入-模块,复制下列代码
按下F5
Sub AAA()
Dim A As Integer
Dim B As Integer, C As Integer, D As Integer
A = Range("A1").CurrentRegion.Rows.Count / 2
B = 1: C = 1: D = 1
Range("E1").Select
For X = 1 To A
ActiveCell.Value = Cells(B, 1)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(B + 1, 1)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(C, 2)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(C + 1, 2)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(D, 3)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(D + 1, 3)
ActiveCell.Offset(1, 0).Select
B = B + 2
C = C + 2
D = D + 2
Next
End Sub
我假设你的数据在ABC三列.从A1:A10000,B1:B10000,C1:C10000
按下ALT+F11
插入-模块,复制下列代码
按下F5
Sub AAA()
Dim A As Integer
Dim B As Integer, C As Integer, D As Integer
A = Range("A1").CurrentRegion.Rows.Count / 2
B = 1: C = 1: D = 1
Range("E1").Select
For X = 1 To A
ActiveCell.Value = Cells(B, 1)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(B + 1, 1)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(C, 2)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(C + 1, 2)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(D, 3)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(D + 1, 3)
ActiveCell.Offset(1, 0).Select
B = B + 2
C = C + 2
D = D + 2
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
c1=CONCATENATE(A1,A2,B1,B2)
然后下面空一行,就是C2不填数据,然后把c1和c2选起来,一起往下拖,也就是两个格子一起复制就行了,最后用编辑,定位,把所有空白格子删除掉就行了
然后下面空一行,就是C2不填数据,然后把c1和c2选起来,一起往下拖,也就是两个格子一起复制就行了,最后用编辑,定位,把所有空白格子删除掉就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
八仙过海,各显神通。看我的。:)
A1 输入 10001
A2 输入 =A1+1
A3 输入 =A1+10000
A4 输入 =A3+1
然后把 A3,A4 选中,复制,再粘帖至 30000 行,就行了。
第 30000 行值是 150000002 。
A1 输入 10001
A2 输入 =A1+1
A3 输入 =A1+10000
A4 输入 =A3+1
然后把 A3,A4 选中,复制,再粘帖至 30000 行,就行了。
第 30000 行值是 150000002 。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不就是要几个数据吗?我说个简单的,不过不知能否达到你的要求。
A1到A6直接输入:
10001
10002
20001
20002
30001
30002
A7输入公式:=A1+2
用填充柄向下复制。
A1到A6直接输入:
10001
10002
20001
20002
30001
30002
A7输入公式:=A1+2
用填充柄向下复制。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果原数据在ABC三列中,请在D1单元格输入公式:
=INDIRECT("R"&CEILING(ROW()/6,1)+INT((ROW()-1)/6)+(MOD(ROW(),2)=0)&"C"&CEILING(ROW()/2,1)-INT((ROW()-1)/6)*3,0)
将公式向下复制。
=INDIRECT("R"&CEILING(ROW()/6,1)+INT((ROW()-1)/6)+(MOD(ROW(),2)=0)&"C"&CEILING(ROW()/2,1)-INT((ROW()-1)/6)*3,0)
将公式向下复制。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询