㈠ 如何提取奇數行的數據
數據在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列篩選一下即可