標題: [發問] 請問怎麼選取一整欄，並做取代的動作？ [打印本頁]

---

作者: losyrl    時間: 2010-9-9 23:00     標題: 請問怎麼選取一整欄，並做取代的動作？

假設A欄有資料如下
================
測試數據1
01
02
03
04
測試數據2
01
02
測試數據3
01
02
03
====================
想要用vba取代成為以下的數據
=====================
測試數據1
測試數據1-01
測試數據1-02
測試數據1-03
測試數據1-04
測試數據2
測試數據2-01
測試數據2-02
測試數據3
測試數據3-01
測試數據3-02
測試數據3-03
========================
麻煩好心的版友幫忙，謝謝您們了

---

作者: Hsieh    時間: 2010-9-9 23:07

回復 1# losyrl

1. Sub nn()
   
2. For Each a In Range([A1], [A65536].End(xlUp))
   
3.    If Val(a) = 0 Then b = a Else a.Value = b & "-" & a
   
4. Next
   
5. End Sub

複製代碼

---

作者: losyrl    時間: 2010-9-9 23:23

非常的謝謝您！我成功了，謝謝

---

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