
上传带行列号的有数据示例的表格截图,清楚说明已知条件,达成什么样的结果,才能有针对性地给你准确的答案。
F2=IF(MOD(A2,2),A2,"")复制到区域
K2=IF(MOD(A2,2),"",A2)复制到绿色区域
P2=INDIRECT(TEXT(SMALL(IF(MOD($A$2:$E$11,2)=2-COLUMN(A1),ROW($A$2:$E$11)100+COLUMN($A$2:$E$11),4^8),ROW(A1)),"r0c00"),)&""
数组公式向下向右复制数组公式,公式输完后,光标放在公式编辑栏同时按下CTRL+SHIFT+回车键,使数组公式生效
ALT+F11 打开VBE 复制下面代码选择数据区域 运行此宏
Sub js()
For Each c In Selection
If cValue Mod 2 <> 0 Then
m = m + 1
cInteriorColorIndex = 36
End If
Next
MsgBox " 共有奇数" & m & "个"
End Sub
1、比如有如下表格数据需要翻译,希望在每行下面自动加入一行,用于填写英文。待翻译完毕,又希望将其中的奇偶数行分开,也就是将中英文内容分开存于两种表格中。
2、首先完成自动加行。在数据右侧空白列F列中输入奇数列:1 3 5 7 9 ,在数据下方F列中输入偶数列:2 4 6 8 10 。
3、选中所有数据,点击“数据"菜单上的“排序”按钮,选择以排序关键字为“F列”,按住数值升序排列。
4、这样就实现了自动在每行下面加入一个空行。这时就可以在空白行中翻译上一行内容。
5、待翻译完毕,就需按照以下步骤自动分开奇偶数行。首先在G1和G3单元格中分别输入1和2,选中G1到G4单元格,拖动鼠标自动向下填充序列。
6、这时可以看到G列奇数行为自然数列,G列偶数行为空白。
7、选中所有数据,点击“数据"菜单上的“排序”按钮。
8、选择以排序关键字为“G列”,按住数值升序排列。
9、中英文已经完全分开了,这时只要删除右侧辅助用的F列和G列,将英文部分剪切至其他表格即可。
1、设置条件区域C1:C2和D1:D2。2、选中A1:A20,“数据/筛选/高级筛选/将筛选结果复制到其他区域/条件区域/C1:C2/复制到/C4/确定”,即可得到奇数数据如**区域。
3、将上述2的条件区域改为D1:D2,复制到改为D4,即可得到偶数数据如绿色区域。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)