- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
1.用VBA比較快 如下
1.1SHEET2=表二 第一列自行放標題.
A欄代號、B欄姓名、C欄獎金以及D欄的積分
1.2SHEET1=表一資料庫
A欄代號、B欄姓名、E欄獎金以及U欄的積分
1.3建立按鈕執行下方程式
Sub DATA()
Sheet2.[A2 65536].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 |
|
發表於 2014-11-27 09:34
| 