標題: [發問] 請問各位前輩關於VBA 陣列取代問題 [打印本頁]

---

作者: ii31sakura    時間: 2014-6-13 16:00     標題: 請問各位前輩關於VBA 陣列取代問題

不好意思、請問一下各位前輩們~小弟的附件中有兩個分頁、一個是Data、一個是轉換頁，
請問如果小弟想要將Data中各欄位下方有數值的欄位皆取代成數值"1"，
如現在轉換頁所顯示的情況、請問小弟該如何使用陣列改寫呢？？

再請麻煩幫忙前輩指導一下、謝謝~


[attach]18493[/attach]

---

作者: stillfish00    時間: 2014-6-13 17:13

回復 1# ii31sakura
Sub Test()
  With Sheets("Data").[A1].CurrentRegion
    .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
  End With
End Sub

---

作者: GBKEE    時間: 2014-6-14 09:01

回復 2# stillfish00
可簡化

1. Sub Test()
   
2.   With Sheets("Data").[A1].CurrentRegion
   
3.     .Offset(1, 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
   
4.   End With
   
5. End Sub

複製代碼

---

作者: ii31sakura    時間: 2014-6-14 09:20

回復 3# GBKEE


    感謝stillfish00與GBKEE前輩的指導、兩位的方法對小弟來說都是有用的，
    我會好好的學習、感謝兩位前輩~

---

作者: stillfish00    時間: 2014-6-14 11:51

回復 3# GBKEE
也對，謝謝提醒。

---

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