excel排列组合问题有四列,假设分别为A,B,C,D.A列有3个数据,简单假设为1,2,3.B列有27个数据,简单假设为1-27C列有22个数据,简单假设为1-22D列有23个数据,简单假设为1-23.现在希望得到一个排列组合的_百度作业帮
excel排列组合问题有四列,假设分别为A,B,C,D.A列有3个数据,简单假设为1,2,3.B列有27个数据,简单假设为1-27C列有22个数据,简单假设为1-22D列有23个数据,简单假设为1-23.现在希望得到一个排列组合的
excel排列组合问题有四列,假设分别为A,B,C,D.A列有3个数据,简单假设为1,2,3.B列有27个数据,简单假设为1-27C列有22个数据,简单假设为1-22D列有23个数据,简单假设为1-23.现在希望得到一个排列组合的结果.如1,1,1,11,1,1,21,1,1,3.请问能写一个宏来处理这个难题?我的数据不是简单的有规律的数字.请不要用数据之间的关系来写宏.
玄彬的状俪7
用多个 FOR 和 NEXT来实现,比如下面这个Sub zuhe()Dim a, b, c, d, eFor a = 1 To 9For b = 1 To 7For c = 1 To 6For d = 1 To 9e = a & be = e & ce = e & dRange("a" & 65536).End(xlUp).Offset(1, 0).Value = eNextNextNextNextEnd Sub将所有1-9,1-7,1-6,1-9的组合,共计3402个不同组合全部罗列出来 以下是你需要的宏,要设置a,b,c,d列里面为你要组合出来的数字,最大组合能力262140个 ：Sub zuhe()Dim A, B, C, DDim H, I, J, K, L, MA = Application.WorksheetFunction.Max(Range("a:a"))B = Application.WorksheetFunction.Max(Range("b:b"))C = Application.WorksheetFunction.Max(Range("c:c"))D = Application.WorksheetFunction.Max(Range("d:d"))For H = 1 To AFor I = 1 To BFor J = 1 To CFor K = 1 To DM = M + 1L = Range("a" & H).Value & Range("b" & I).Value & Range("c" & J).Value & Range("d" & K).ValueRange("e1").Value = "组合如下:"If M
扫描下载二维码EXCEL中怎么把B,C,D.E......列的数据在A列的数据后面以次排列下去_已解决 - 阿里巴巴生意经
大家都在搜
EXCEL中怎么把B,C,D.E......列的数据在A列的数据后面以次排列下去
嗯,我的数据,行是固定的,,,,,,如果不固定的又怎么弄? zipall老大,向下填充有很多0
mlrq153522的答复：
每列的数据都是3行吗?如果是的话,假设原数据在sheet1的1:3行,在sheet2的A1输入公式=INDEX(Sheet1!$1:$3,MOD(ROW(A3),3)+1,ROW(A3)/3)向下填充&对补充问题的回复:行数不固定的话,用vba可能更方便一些.假设每列数据都是从第1行开始,连续至某行结束.假设数据从A列开始,连续至某列结束按住ALT依次按F11,I,M,粘贴代码后按F5即可得到转换后的结果.Sub&test()&&&&Sheets.Add&&&&x&=&1&&&&With&Sheets(&sheet1&)&&&&&&&&For&c&=&1&To&.[iv1].End(xlToLeft).Column&&&&&&&&&&&&r&=&.Cells(65536,&c).End(xlUp).Row&&&&&&&&&&&&Cells(x,&1).Resize(r,&1)&=&.Cells(1,&c).Resize(r,&1).Value&&&&&&&&&&&&x&=&x&+&r&&&&&&&&Next&&&&End&WithEnd&Sub
回答：共&0&条excel 排序问题 A列 =B列 但顺序不同 要求B列按照A列排序 C列跟随 a c 1 c b 2 d a 3 b d 4_百度知道
excel 排序问题 A列 =B列 但顺序不同 要求B列按照A列排序 C列跟随 a c 1 c b 2 d a 3 b d 4
提问者采纳
$A$999=B1)*ROW($1:$999))向下复制公式然后选中B:D列按D列排序在D1输入公式=SUMPRODUCT(($A$1
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}