可以請教當欄位不是固定在一個位置我要如何copy到第2活頁
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
     
|
我也來練習一下- Sub ex2()
- Dim A As Range
- With Sheet1
- Set A = .Cells.Find("工令", lookat:=xlWhole)
- If Not A Is Nothing Then
- Set t = A.CurrentRegion
- t.Offset(0, 1).Resize(t.Rows.Count, 1).Copy Sheet3.[A1]
- t.Offset(0, 3).Resize(t.Rows.Count, 1).Copy Sheet3.[B1]
- End If
- End With
- End Sub
|
|
|
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式
|
|
|
|
|
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
|
回復 9# hu0318s
如果不是整齊的資料塊，只能像10#GBKEE大的方式，一般情況應該是比較少這樣放資料 |
|
|
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式
|
|
|
|
|
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
|
回復 13# GBKEE
GBKEE大 讚， 感謝指教，又學一招
AR = Array("工令", "品名", "MRP料齊日") 將要找的放在陣列中，將能程式碼構架化後就能彈性查詢。 |
|
|
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式
|
|
|
|
|
發表於 2013-11-27 22:44
| 
