返回列表 上一主題 發帖

[發問] 請問怎麼選取一整欄，並做取代的動作？

losyrl

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-9-9 
最後登錄
2011-2-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

losyrl

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-9-9 
最後登錄
2011-2-16 
3#
發表於 2010-9-9 23:23 | 只看該作者
非常的謝謝您！我成功了，謝謝

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題