- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
本帖最後由 stillfish00 於 2013-1-24 19:16 編輯
回復 1# cmo140497
1.
>>如遇欄位數不足,自動新增來源之columns數,
敘述看不懂
2.
>>每排僅能有三個範圍資料,第四個則跳第二排
檔案跟圖上顯示的是
僅有二個範圍資料,第三個則跳第二排
3.
不過我大該可以猜出你要甚麼...
試看看..- Sub Test()
- Dim vCols As Long, cIndex As Long, rIndex As Long
- Dim first As Long, last As Long
- Dim sCopy As String
- Dim r, c
- first = 2 'from T02 , 可自行調整
- last = 5 'to T05 , 可自行調整
- sCopy = "B2:P12" '可自行調整
- r = Range(sCopy).Rows.Count + 1 '每區塊列數,+1列標題(Wafer TXX)
- c = Range(sCopy).Columns.Count + 1 '每區塊欄數,+1欄空白
-
- '可見的欄數總數
- vCols = Sheets("sheet1").Cells.SpecialCells(xlCellTypeVisible).Columns.Count
- For i = first To last
- rIndex = Int((i - first) / Int(vCols / c))
- cindex = (i - first) Mod Int(vCols / c)
-
- With Sheets("sheet1").[B5].Offset(r * rIndex, c * cindex)
- .Offset(-1, 1).Value = "WAFER"
- .Offset(-1, 2).Value = "T" & Format(i, "00")
- Sheets("T" & Format(i, "00")).Range(sCopy).Copy .Cells(1, 1) '範圍複製[B2:P12],含格式
- End With
- Next i
- End Sub
|
|
發表於 2013-1-24 19:15
| 
