標題: copy資料至有隱藏欄位之方式請教 [打印本頁]

---

作者: KITTYBOY    時間: 2010-5-31 15:47     標題: copy資料至有隱藏欄位之方式請教

dear  all 大大 -
  1sheet1 工作表之 range("a1") - range("d1")
    之值要copy至   sheet2 工作表之  range("a1")
    range("c1")   range("e1")   range("g1")
    1.1 sheet2 工作表之 欄位range("b1")  range("d1")
          range("f1") 有影藏不可copy 之.
  2煩不另賜教.  thanks.

---

作者: john2006168    時間: 2010-6-5 00:43

應該可以的,隱藏不隱藏用copy沒有關係

---

作者: Hsieh    時間: 2010-6-5 09:12

基本操作應該做不到
試試看
Sub Ex()
ar = Sheet1.[A1:D1].Value
Set Rng = Sheet2.Rows("1").SpecialCells(xlCellTypeVisible)
For Each a In Rng
i = i + 1
If i > UBound(ar, 2) Then Exit For
  a.Value = ar(1, i)
Next
End Sub

---

作者: KITTYBOY    時間: 2010-6-7 16:50

回復 3# Hsieh


    DEAR  Hsieh  大大 -
       TEST後完全符合須求.感謝您之指導.  THANKS*10000

---

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