標題: [發問] 複製多列儲存格 [打印本頁]

---

作者: caichen3    時間: 2012-5-30 21:25     標題: 複製多列儲存格

請問各位大大們：
如何設定當按下按鈕時，
取工作表1，第三列紅底色的值，並且將上面二列的內容一併複製，
結果畫面在工作表2
a1：2個區塊
a2：10個零件

---

作者: Hsieh    時間: 2012-5-30 21:48

回復 1# caichen3

1. Sub ex()
   
2. Dim Ar(), i%, s%
   
3. Dim A As Range
   
4. For Each A In Range([E3], [E3].End(xlToRight))
   
5.    If A.Interior.ColorIndex = 3 Then
   
6.           ReDim Preserve Ar(3, i)
   
7.           For s = 2 To 0 Step -1
   
8.           Ar(2 - s, i) = A.Offset(-s).MergeArea(1).Value
   
9.           Next
   
10.           i = i + 1
    
11.     End If
    
12. Next
    
13. If i > 0 Then Sheets(2).[A1].Resize(i, 3) = Application.Transpose(Ar)
    
14. End Sub

複製代碼

---

作者: caichen3    時間: 2012-5-30 23:55

回復 2# Hsieh


    感謝H大大的幫忙喔:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)