作者:乔山办公网日期:
返回目录:excel表格制作
参考知这道个版权
Function ColumnNumberToLetter(iCol As Long) As String
Dim lAlpha As Long
Dim lRemainder As Long
If iCol <= 26 Then
ColumnNumberToLetter = Chr(iCol + 64)
Else
lRemainder = iCol Mod 26
lAlpha = Int(iCol / 26)
If lRemainder = 0 Then
lRemainder = 26
lAlpha = lAlpha - 1
End If
ColumnNumberToLetter = ColumnNumberToLetter(lAlpha) & Chr(lRemainder + 64)
End If
End Function
=COUNTIF(A:A,C1)
对A.B列相同来的内容一一对应。
A.B列建插入一列,使其变为2个区域,方便后面排序。源
在B列输入公式=vlookup(A2,C:C,1,0),D列输入公式=vlookup(C2,A:A,1,0),双击快速填充。
选择A.B列筛选。知对B列进行升序排列。
选中C.D列筛选。对D列进行升序排列。
选中B列或D列值为#N/A的行,插入行,任意删除A或C列中插入的空白行。再删除B.D列即可道。