D2 输入 =mid(C2,15,2) 。 C2是你的身份证号,公示用英文符号,表示从C2单元格文字中从左至右数到第15位,然后取2位文字。
方法1:
B列:输入1、2、1、2(填充这样的序列)
然后全选资料,按B列排序
A列的数字即可自动排在一起
方法2:
单元格B1使用公式,往下拉:
=IF(MOD(ROW(),3),"",B1)
然后复制B列资料,选择性贴上为数值(去掉公式),排序即可
提取A列最后1行的资料,程式码
Sub 最后1行()
Dim I%
I = Range("A65536").End(xlUp).Row
X = Cells(I, "a")
MsgBox "A列最后1行资料为:" & X
End Sub
1、复制所有资料。2、用滑鼠纵向拉出相同数量的单元格,3、右键→选择性贴上→转置
两种方法:
一是直接复制需要的资料,到另一个sheet中贴上。
二是在sheet中设定公式,取星期一的资料。
B2
=IF(a1=3,a2,"")
假设资料在 A1:H1 , 在G1中输入如下公式
=IF(COUNTIF(A1:H1,A1:H1)>=2,A1:H1,)
输入结束后,按 ctrl + shift + enter 确认(阵列公式)
此公式可以向下复制,判断,把下面各行的重复资料取出来!
你后面的问题说明,你只想把有重复资料的行,用特殊标志标出来,可以这样做:
同样在G1输入公式:
=IF(COUNTIF($A1:$H1,$A1:$H1)>=2,"",)
输入结束后,也要按 ctrl + shift + enter 确认
B1 输入
=INDEX(A:A,SMALL(IF(MATCH(A$1:A$10,A$1:A$10,)=ROW(A$1:A$10),ROW(A$1:A$10),4^8),ROW(A1)))&""
crtl+shift+enter结束公式
往下填充
举例如下:
A B C
5 8 40=A1*B$1(B$1表示固定这个单元的资料)
9 72
4 32
7 56
向下拖动C1,就可以得到正确的结果。
你的数字位数是否有规律哪?如果数字位数有规律的话,可能还可以用些函式来处理,否则你只有使用程式码这一条途径了!