excel如何一列的奇偶行分成两列_百度知道
excel如何一列的奇偶行分成两列
如图：奇数列公式：C1=OFFSET($A$1,ROW()*2-2,)，偶数列公式：D1=OFFSET($A$1,ROW()*2-1,)一起下拉即可。这里是使用了OFFSET函数，用INDEX，或者INDIRECT函数都可以达到同样的效果。奇数列：=INDEX(A:A,ROW()*2-1)，偶数列：=INDEX(A:A,ROW()*2)奇数列：=INDIRECT(&A&&ROW()*2-1)，偶数列：=INDIRECT(&A&&ROW()*2)三套公式都可以达到想要的效果。
其他类似问题
为您推荐：
)&nbsp://b.详见附图<img class="ikqb_img" src="http.hiphotos.jpg" esrc="http://b,(ROW(A1)-1)*2+MOD(COLUMN(A1)-1
谢谢，这个答案比较简单，搞定了可以说明下嘛？
以A1单元格为基准单元格，每向下偏移一行，在A列向下偏移两行；每向右偏移一列，向下偏移一行。公式可以简化为=OFFSET($A$1,(ROW(A1)-1)*2+COLUMN(A1)-1,)&
来自团队：
其他1条回答
Cells(i;True&=&nbsp&#39,&=&To&nbsp.RowIf&1);ThenCells(j;1For&=&nbsp,&VBA方法Sub&1End&1)ElseCells(j,&TST()Dim&1);Cells(10000;1)j&=&=&A3)&i,&i&j&2)&1&nbsp,&=&nbsp.End(xlUp),&nbsp.WorksheetFjj&nbsp,&IfNextEnd&nbsp.ROW)&nbsp.IsOdd(Cells(i;+&Cells(i
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何在奇偶行分别自动成不同的底纹
【导读】:本文教你如何在奇偶行分别自动成不同的底纹。
&&&&&& 1)选定范围――格式――条件格式――公式输入=MOD(COUNTA($A$2:$A2),2)=1，指定一底纹
&&&&&& 再输入=MOD(COUNTA($A$2:$A2),2)=0指定另一底纹
&&&&&& 2)按已排序的部门来设置间隔底纹
&&&&&& 思路：根据相邻两部门是否相等来进行条件设置
&&&&&& 选定范围――格式――条件格式――公式输入=MOD(SUM(--($D$2:$D2&&$D$1:$D1)),2),&指定一底纹再输入=MOD(COUNTA($A$2:$A2),2)=0指定另一底纹
&&&&&& 3)最多输入两位小数的价格
&&&&&& 实现的方法是，该单元的值是否等于其指定的精度函数－FLOOR（第一个单元格，0.01）
&&&&&& 其公式为&＝单元格＝FLOOR（第一个单元格，0.01）
&&&&&& 数据―――有效性――设置――允许――自定义――在公式栏输入&＝单元格＝FLOOR（第一个单元格，0.01）&
&&&&&& 该提示信息可以在如下位置输入：
&&&&&& 数据―――有效性――在出错信息中输入相应内容就可以了
&&&&&& 4)查找每天的最低量，并用颜色进行动态标识
&&&&&& 选定范围――格式――条件格式――公式输入=$B3=MIN(IF($A3=$A$3:$A$13,$B$3:$B$13))
&&&&&& 解：=$B3=MIN(IF($A3=$A$3:$A$13,$B$3:$B$13))
&&&&&& $A3=$A$3:$A$13表示日期相同，就返回相同日期的$B$3:$B$13中最小值
------分隔线----------------------------
猜您感兴趣
文章点击榜
本文介绍一个制作图表的小技巧：添加平均线。...
如何提取excel文件里的照片？右击，另存为？右击到手麻！只需两步，只用五秒，甚至无需打开...
产品图片想看就看，可以通过批量链接产品对应图片来解决，本方法同样适用于员工档案、各...
Excel中，如何制作复杂的斜线表头？斜线表头，就是包含有斜线和文字的单元格。下面将给出方...
在Excel中打开相关选项后，按Alt+PrintScreen键。然后在Windows开始菜单的附件中打开画图程序，按...
网站为公益性网站，部分内容来源网络，如无意中侵犯了您的版权，请来信告知，我们会在第一时间处理
CopyRight(C) ， 版权所有查看: 3323|回复: 7
用indirect函数对一列数据按照奇偶行分成两列
高级三, 积分 2650, 距离下一级还需 400 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: herelazy
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2013&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
分列3(1).jpg (130.22 KB, 下载次数: 88)
21:26 上传
(3.77 KB, 下载次数: 28)
21:26 上传
点击文件名下载附件
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
如果不用R1C1模式应该是这样=INDIRECT(&A&&ROW(A1)*2+COLUMN(A1)+1)复制代码附件：
(11.06 KB, 下载次数: 9)
07:55 上传
点击文件名下载附件
谢谢小千补充！&
谢谢补充:)
学office，哪能不关注全网最大的Office类微博（新浪）
高级三, 积分 2650, 距离下一级还需 400 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
<font color="#Mouse 发表于
如果不用R1C1模式应该是这样附件：
谢谢小千补充！
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
不建议把同个问题的多种解法拆成多个主题发表
用index函数对一列数据按照奇偶行分成两列
用offset函数对一列数据按照奇偶行分成两列
如果放在一个里面，每个都解析下，会做的很长。&
学office，哪能不关注全网最大的Office类微博（新浪）
高级三, 积分 2650, 距离下一级还需 400 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
lrlxxqxa 发表于
不建议把同个问题的多种解法拆成多个主题发表
用index函数对一列数据按照奇偶行分成两列
http://www.exce ...
如果放在一个里面，每个都解析下，会做的很长。
参数原理都一致，解析看你怎么写了&
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
herelazy 发表于
如果放在一个里面，每个都解析下，会做的很长。
参数原理都一致，解析看你怎么写了
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
一起学习一下
多谢分享！
学office，哪能不关注全网最大的Office类微博（新浪）
高级一, 积分 1711, 距离下一级还需 189 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学习了，谢谢分享
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by献给大家一个VF调用EXCEL，将VF数据查询后做成EXCEL表格的例子每一部分 -其他数据库- TryCatch
>> Content
献给大家一个VF调用EXCEL，将VF数据查询后做成EXCEL表格的例子每一部分
set&path&to&d:\lzb\dzcx&set&default&to&d:\lzb\dzcx&if&alltrim(THISFORM.TEXT1.VALUE)&"&"&or&&alltrim(THISFORM.TEXT2.VALUE)&"1970"&or&alltrim(THISFORM.TEXT3.VALUE)&"12"&or&alltrim(THISFORM.TEXT4.VALUE)&"2100"&or&alltrim(THISFORM.TEXT5.VALUE)&"12"&&or&alltrim(THISFORM.TEXT2.VALUE)&alltrim(THISFORM.TEXT4.VALUE)messagebox("填写不完整或需要减少查询跨度！")else&SET&SAFETY&OFF&SET&TALK&OFF&SET&DATE&ansi&SET&ESCAPE&OFF&SET&EXACT&ON&if&used("sj1")&sele&sj1&zap&use&else&USE&sJ1&ZAP&use&&endif&&if&used("sj3")&sele&sj3&zap&use&else&USE&sJ3&ZAP&use&&endif&&if&used("sj4")&sele&sj4&zap&use&else&USE&sJ4&ZAP&use&&endif&if&used("sj5")&sele&sj5&zap&use&else&USE&sJ5&ZAP&use&&endif&&if&used("sj6")&sele&sj6&zap&use&else&USE&sJ6&ZAP&use&&endif&&&STORE&'lh&&&&&&&'&TO&JH1&STORE&'&&&&&&&&&&'&TO&RQ1&STORE&'&&&&&&&&&&'&TO&RQ2jh1=thisform.text1.valuerq1=thisform.text2.valuerq2=thisform.text3.valuerq3=thisform.text4.valuerq4=thisform.text5.value&JH1&=&TRIM(JH1)&JH1&=&UPPER(JH1)&RQA&=&VAL(SUBSTR(RQ1,1,4))&RQB&=&VAL(SUBSTR(RQ2,1,2))&RQC&=&SUBSTR(RQ3,1,4)&RQD&=&SUBSTR(RQ4,1,2)&USE&sJ4&ZAP&&DO&WHILE&100&*&RQA&+&RQB&&=&100&*&VAL(RQC)&+&VAL(RQD)&&&&DO&CASE&&&&&CASE&RQB&&=&10&&&&&&&WJM&=&'D:\lzb\dzcx\sj\sj'&+&STR(RQA,4)&+&STR(RQB,2)&+&'.dbf'&&&&CASE&RQB&&&10&&&&&&&WJM&=&'D:\lzb\dzcx\sj\sj'&+&STR(RQA,4)&+&'0'&+&LTRIM(STR(RQB,2))&+&'.dbf'&&&&ENDCASE&&&&&IF&RQB&=&12&&&&&&&RQA&=&RQA&+&1&&&&&&&RQB&=&0&&&&ENDIF&thisform.label12.caption=wjm&&&keyb"{a}"&&&&&&&RQB&=&RQB&+&1&&&&USE&sJ&&&&ZAP&&&&&IF&FILE(WJM)&=&.T.&&&&&&&&appe&from&&wjm&&&&&&&&copy&to&SJ2&for&jh='&jh1'.and.len(trim(jh))=len('&jh1')&&&&&&&USE&sJ1&&&&&&&&appe&from&sJ2&for&jh='&jh1'&&&&ELSE&&&&&&&&MESSAGEBOX("注意！"+WJM+"没有发现！")&&&&ENDIF&&&&&ERASE&sJ2.dbf&ENDDO&&thisform.label12.caption=""&USE&sJ1&REPLACE&日注能力&WITH&(YZSL&/&SCTS)&FOR&SCTS&&&&0&USE&&USE&sJ4&ZAP&&APPEND&FROM&sJ1&USE&&USE&sj4&REPLACE&all&井号&WITH&(JH)&REPLACE&all&生产天数&WITH&(SCTS)&REPLACE&all&日配注水量&WITH&(RPZSL)&REPLACE&all&干线压力&WITH&(GXYL)&REPLACE&all&油压&WITH&(YY&)&for&val(NY)&200012&REPLACE&all&油压&WITH&(YY&*&10)&for&val(NY)&=200012&REPLACE&all&套压&WITH&(TY&)&for&val(NY)&200012&REPLACE&all&套压&WITH&(TY&*&10)&for&val(NY)&=200012&REPLACE&all&月注水量&WITH&(YZSL)&REPLACE&all&井累产油&WITH&(QJLJCYL)&REPLACE&all&年月&WITH&(NY)&REPLACE&all&全井累注&WITH&(QJLJZSL)&REPLACE&all&砂层厚度&WITH&(SCHD)&count&to&qwe&if&qwe=0&&messagebox("没有记录!")&thisform.release&else&&USE&&USE&sj5&APPEND&FROM&sj4*&COPY&TO&(SUBSTR(JH1,2,8))&TYPE&FOX2X&&COPY&TO&sj6&TYPE&FOX2X&&count&to&mycount&USE&&thisform.refresh&ERASE&temp.xls******************************************************************针式/激光打印机if&thisform.check2.value=1&err_fnd=.F.&&&&&&&&&&&&&&&&&&&默认启动Excel应用不发生错误ON&ERROR&err_fnd=.T.&&&&&&&出错捕捉，若有错令err_fnd变量值为真&OLEAPP&=&CREATEOBJECT('Excel.Application')&&&&&&启动一个Excel应用程序，相当于点击Excel启动它，并用eole这个变量来代表它IF&err_fnd&&&&&&&&&&&若发生意外，如用户微机上未安装MS&Excel软件则err_fnd值为真&&&??&CHR(7)&&&=MESSAGEBOX("本机尚未安装MS&Excel,请先安装该软件！")&&&&&&&&&&&提示信息&&&RETURN&&&&&&&&&&&不绘图，返回ENDIF&OLEAPP.VISIBLE&=&.T.&OLEAPP.Caption="保存时文件类型选择-XLS"&OLEAPP.WORKBOOKS.OPEN('d:\lzb\dzcx\sj6.dbf')&OLEAPP.ActiveSheet.Rows(1).Insert&OLEAPP.ActiveSheet.Rows(1).RowHeight=0.8/0.035&OLEAPP.cells(1,1).value=jh1+"&水井月度数据报表"&OLEAPP.activesheet.range("a1:m1").merge*15．设置页脚OLEAPP.ActiveSheet.PageSetup.CenterFooter="第&P页&[2005.5&机采室编制]"*16．设置页眉到顶端边距为2厘米OLEAPP.ActiveSheet.PageSetup.HeaderMargin=2/0.035*17．设置页脚到底边距为3厘米OLEAPP.ActiveSheet.PageSetup.FooterMargin=0.9/0.035*18．设置顶边距为2厘米OLEAPP.ActiveSheet.PageSetup.TopMargin=1.5/0.035*19．设置底边距为4厘米OLEAPP.ActiveSheet.PageSetup.BottomMargin=1.5/0.035*20．设置左边距为2厘米OLEAPP.ActiveSheet.PageSetup.LeftMargin=1.5/0.035*21．设置右边距为2厘米OLEAPP.ActiveSheet.PageSetup.RightMargin=0.5/0.035*22．设置页面水平居中OLEAPP.ActiveSheet.PageSetup.CenterHorizontally=.t.*23．设置页面垂直居中OLEAPP.ActiveSheet.PageSetup.CenterVertically=.f.*24．设置页面纸张大小(1－窄行8511&39－宽行1411&&&，&&9是A4，12是B4)OLEAPP.ActiveSheet.PageSetup.PaperSize=12*24．设置页面纸张方向(1&纵向&2横向)OLEAPP.ActiveSheet.PageSetup.Orientation=1OLEAPP.ActiveSheet.Columns(1).ColumnWidth=0OLEAPP.ActiveSheet.Columns(2).ColumnWidth=6OLEAPP.ActiveSheet.Columns(3).ColumnWidth=5OLEAPP.ActiveSheet.Columns(4).ColumnWidth=8OLEAPP.ActiveSheet.Columns(5).ColumnWidth=5OLEAPP.ActiveSheet.Columns(6).ColumnWidth=5OLEAPP.ActiveSheet.Columns(7).ColumnWidth=8OLEAPP.ActiveSheet.Columns(8).ColumnWidth=8OLEAPP.ActiveSheet.Columns(9).ColumnWidth=10OLEAPP.ActiveSheet.Columns(10).ColumnWidth=10OLEAPP.ActiveSheet.Columns(11).ColumnWidth=8OLEAPP.ActiveSheet.Columns(12).ColumnWidth=8OLEAPP.ActiveSheet.Columns(13).ColumnWidth=8OLEAPP.activesheet.range("a1:t1").horizontalalignment=3*31．设置字体OLEAPP.ActiveSheet.Range("a1:t1").Font.Name="黑体"*32．设置字体大小OLEAPP.ActiveSheet.Range("a1:t1").Font.Size=18*34．设置整列字体为粗体yyy="m"+alltrim(str(mycount+2))OLEAPP.ActiveSheet.Range("a2:&yyy").Borders(2).Weight=2OLEAPP.cells(2,3).value="天数"OLEAPP.cells(mycount+2,13).value=alltrim(str(mycount))+"个月"
------Solutions------
题目应该是：献给大家一个VF调用EXCEL，将VF数据查询后做成EXCEL表格的例子（第一部分）
------Solutions------
为何不直接COPY&TO&USE&表名COPY&TO&EXCEL表名.XLS&TYPE&XL5
------Solutions------
上文打印出的是已经按格式调整好的EXCEL报表，A4纸直接打印，如果用USE&表名COPY&TO&EXCEL表名.XLS&TYPE&XL5就会发现，如果打印，就必须调节列宽，改表头（库里是拼音字段名）、更改标题格式（字体名称大小）等等，非常麻烦。经实践，非常好用！----apple_8180(十豆三)我怎么感觉和你似曾相识呀，奇怪的感觉。
------Solutions------
这种打印我也用过，呵呵。
------Solutions------
请问如何较好的退出并销毁楼主在程序中所创建的OLEAPP对象？我用的代码是：&&&&&&&&&&&&&&OLEAPP.WORKBOOKS.CLOSE&&&&&&&&&&&&&&OLEAPP.QUIT&&&&&&&&&&&&&&RELEASE&OLEAPP但是老是出现问题。请大家指教。
------Solutions------
用EXCEL　VBA的COPYFROMRECORDSET生成所需数据更简单