[發問] 求有關範圍數據中抽樣的公式

united7878

想請教版上的前輩們

表一為資料頁，其中U欄是積分所在

想在表二儲存頁參照SHEET1的U3:U2000抽出積分介於25~40同列的A欄代號、B欄姓名、E欄獎金以及U欄的積分

該用哪個函數呢?

我試著用IF+AND都抽樣失敗...

請前輩們指導一下了

謝謝~

united7878

上禮拜在一般區發問了一個有關"範圍數據中抽樣的公式"

表一為資料頁，其中U欄是積分所在

想在表二儲存頁參照SHEET1的U3:U2000抽出積分介於25~40同列的A欄代號、B欄姓名、E欄獎金以及U欄的積分

幸得rouber590324 前輩的指導而習得一VBA語法如下
1204BOOK1.rar

但執行後會出現"執行接斷錯誤'13' 型態不符合 "的錯誤訊息
偵錯後在這行停止
If Sheet1.Cells(M, 21) - 25 >= 0 And Sheet1.Cells(M, 21) - 40 <= 0 Then
想請教版上的前輩高手們是何問題造成抽樣失敗
而偵錯的原因為何?

謝謝

rouber590324

DEAR 淚的小花
公司限制 我無法下載您提供之檔案 殘念........

united7878

回復 2# rouber590324
rouber590324 前輩您好

我套用VBA後出現了

"執行接斷錯誤'13' 型態不符合 "的錯誤訊息

偵錯後在這行停止
If Sheet1.Cells(M, 21) - 25 >= 0 And Sheet1.Cells(M, 21) - 40 <= 0 Then
1204BOOK1.rar (86.12 KB)

下載次數: 9

2014-12-4 08:30

我附上表格請前輩幫我看看還有甚麼地方需要修正的嗎?

謝謝~

united7878

回復 2# rouber590324
恩~
感謝rouber590324 前輩
用VBA果然方便多了
{:3_46:}

rouber590324

1.用VBA比較快 如下
1.1SHEET2=表二 第一列自行放標題.
A欄代號、B欄姓名、C欄獎金以及D欄的積分
1.2SHEET1=表一資料庫  
A欄代號、B欄姓名、E欄獎金以及U欄的積分
1.3建立按鈕執行下方程式

Sub DATA()
Sheet2.[A265536].ClearContents
Y = Sheet2.[A65536].End(xlUp).Row + 1
X = Sheet1.[A65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 21) - 25 >= 0 And Sheet1.Cells(M, 21) - 40 <= 0 Then
Sheet2.Cells(Y, 1) = Sheet1.Cells(M, 1)
Sheet2.Cells(Y, 2) = Sheet1.Cells(M, 2)
Sheet2.Cells(Y, 3) = Sheet1.Cells(M, 5)
Sheet2.Cells(Y, 4) = Sheet1.Cells(M, 21)
Y = Y + 1
End If
Next
Sheet2.Select
Range("A1").Select
End Sub