- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 1# tonycho33
依照樓主的表示方式
aa3是原始資料區
aa1是結果區
若是這個情況的話~
建議原始資料區~ 不要進行刪除的條件~
你要的只是依你條件將aa3的資料放在aa1
我將結果放在aa1 B欄位中
依條件~
aa3 Y欄位中有資料的儲存格放在aa1 B欄位 ,並將[已排]的資料排除,共得到124筆數據
又
在aa1 A欄位的表示方式~ 是三個合併儲存格放一筆aa3 Y的資料- Sub ex()
- Dim A As Range
- For Each A In Sheet3.Range("Y:Y")
- If A <> "" And A.Offset(0, 2) <> "已排" Then
- Sheet1.Range("B" & 3 + N) = A
- Sheet1.Range("B" & 3 + N & ":B" & 3 + N + 2).Merge
- N = N + 3
- End If
- Next
- End Sub
|
|
發表於 2012-3-22 12:14
| 