㈠ 如何提取奇数行的数据
数据在A1列开始的一整列的话，可以在B1输入=INDIRECT("A"&1+(ROW()-1)*2)下拉就是奇数行的数据。=INDIRECT("A"&ROW()*2) 就是偶数行。
㈡ 如何提取数据的偶数和奇数
用自定义函数解决：
Functionji(xAsRange)
ji=x.Value
Fori=2To8Step2
ji=Replace(ji,i,"")
Next
EndFunction
Functionou(xAsRange)
ou=x.Value
Fori=1To9Step2
ou=Replace(ou,i,"")
Next
EndFunction
㈢ 怎么把一列中个数为奇数的数据都提取出来放在另一列
右击sheet标签，查看代码，然后把下面的内容粘贴进去，而后按 f5
Sub xx()
Dim a%, b%
Dim r As Range
a = Range("a1").End(xlDown).Row
Range("a1:a" & a).Copy Range("b1:b" & a)
Range("b1:b" & a).RemoveDuplicates 1
b = Range("b1").End(xlDown).Row
For Each r In Range("b1:b" & b)
c = WorksheetFunction.CountIf(Range("a1:a" & a), r)
If c Mod 2 = 0 Or r = Range("a1") Then r.Value = ""
Next
Range("b1:b" & b).SpecialCells(xlCellTypeBlanks).Delete
End Sub
㈣ （Office 2007）Excel中如何提取奇数行的数据，请高手指教。
假设原数据在A1:A10区域内
B1输入公式
=IF(MOD(ROW(A1),2),A1,"")
下拉填充公式
再对B列筛选一下即可