返回列表 上一主題 發帖

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

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 »
發表於 2014-11-27 09:34 | 顯示全部帖子
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
羅

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2014-12-4 10:21 | 顯示全部帖子
DEAR 淚的小花
公司限制 我無法下載您提供之檔案 殘念........
羅

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題