如何將A,B欄轉換成沒有空格及要特定排列之C,D欄 - Excel程式區

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 316
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

11^# 跳轉到 »

發表於 2015-8-18 11:49 | 只看該作者

本帖最後由 lcctno 於 2015-8-18 11:50 編輯

回復 10# lpk187

我發現Sheet1之要使用之欄位有錯誤故補上了一整排之空白欄位後也進去修改巨集但要執行巨集時卻看不到巨集故只好自己亂COPY 做了一個巨集但執行起來沒看到有什麼動作
目前請您以巨集的方式下去寫待正常後我再請教您如何能當參數一改變結果也會馬上跟著變的方法謝謝您了

附上我亂改過的檔案

配置TEST.rar (61.34 KB)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

12^#

發表於 2015-8-18 15:13 | 只看該作者

回復 11# lcctno

配置TEST.rar (64.66 KB)

TOP

lcctno

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 316
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

13^#

發表於 2015-8-18 17:28 | 只看該作者

回復 12# lpk187

為何我在VB看的到Sheet1的巨集但要執行巨集時卻看不到如附圖
我看您還是幫我弄個可以用工具/巨集/巨集然後點選該巨集來"執行"

簡單的我可能會但稍微難的我真的不會麻煩您先用簡單一點的方式好方便我入門對初學的我我真的很想學會但入不了門真的非常的謝謝您的用心教導我

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

14^#

發表於 2015-8-18 21:15 | 只看該作者

回復 13# lcctno

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
是屬於"工作表事件"的程序是不會在巨集中出現，會在巨集中出現的只有Module1、Module2... 或者是程序以Public Sub xxxx 中才會出現
而以Private Sub xxx開頭的程序也不會出現在巨集簿中，這裡請參考VBA說明，"Sub 陳述式"
Worksheet_Change工作表事件若要在其他的工作表中使用必須要整個複製過去，它是屬於私有領域的程序，以事件來觸發，而不是利用按鈕，這裡請參考VBA考說明中的Worksheet.Change 事件的

TOP

lcctno

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 316
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

15^#

發表於 2015-8-18 21:52 | 只看該作者

回復 14# lpk187

我是初學者目前沒有能力將之轉換成我能使用之巨集
且我有嘗試將您附上的檔案T,U行之數值改變但V,W行內之值並無法自行變更那反而造成我不敢使用該數據
我看我還是用最基本的人工資料排序後複製貼上或可使用錄製新巨集的方式來處理免得我可能做白工還可能壞了我原來可得到的正確統計那將可能會輸的不明不白
您說呢? 那是錢的戰爭請不要怪我挑剔
雖然我沒能幸運的得到完美的解答但我知道您是用心的想幫我解決問題真的我還是很感謝您的幫助

TOP

lcctno

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 316
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

16^#

發表於 2015-8-18 22:20 | 只看該作者

回復 14# lpk187
我目前是在想辦法將我過去用傳統的基本語法(檔案真的很大有一檔已770mbs 且還不是我真的喜歡的分析方式) 開啟費時改變內容之data 儲存時間也很費時所以才想嘗試使用巨集的方式來寫但總不能為了減少檔案體積(mbs或許改天變成gbs) 而得到沒可信度的資料吧! 路雖遠但慢慢走或許還是可能會平安的到達目的地吧! 真的還是很感謝您若您改天想介入股市相關之產物我可提供我的賺錢心法
這是其一"想法不改變做法當然也不會變那輸家怎麼會變成贏家"

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

17^#

發表於 2015-8-22 18:27 | 只看該作者

若不用vba，且為動態數據，加個輔助欄即可：
ｃ３公式：下拉至資料尾筆
=IF(OR(A3="",B3=""),"",A3*10^8+ROW())
　
ｄ３公式：右拉ｅ３再下刷
=IF(ROW(D1)>COUNT($c:$c),"",INDEX(A:A,RIGHT(LARGE($c:$c,ROW(D1)),5)))
　

TOP

[發問] 如何將A,B欄轉換成沒有空格及要特定排列之C,D欄

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]