INDEX與INDIRECT函數將單欄資料轉為三欄與VBA

207 views
Skip to first unread message

吳老師

unread,
Apr 2, 2017, 10:42:58 AM4/2/17
to EXCEL函數與VBA設計

INDEX與INDIRECT函數將單欄資料轉為三欄與VBA


完整連結：https://terry55wu.blogspot.tw/2017/04/indexindirectvba.html


預覽畫面：



常遇到儲存格中若有單欄資料要分為三欄或多欄資料，

若不懂的用INDEX等查詢函數，配合COLUMN與ROW參照函數，

可能要用非常多的時間才能完成工作，

但若懂得用INDEX或INDIRECT函數，

馬上就可以輕易完成結果，當然更大量資料與重複應用，

還是建議用VBA來完成，

最後補充說明將三欄再轉為一欄的邏輯說明。


通訊錄單欄轉三欄

**COLUMN&ROW


=COLUMN()-2+(ROW()-2)*3

**INDEX

=INDEX($A$1:$A$18,COLUMN()-2+(ROW()-2)*3,1)


**REPLACE

=REPLACE(INDEX($A$1:$A$18,COLUMN()-2+(ROW()-2)*3,1),1,LEN(C$1),"")


**INDIRECT與MID函數

=MID(INDIRECT("A"&COLUMN()-2+(ROW()-2)*3),LEN(C$1)+1,99)

**VBA程式碼與畫面


Public Sub 通訊錄_Range輸出()

   '1.列迴圈

   For i = 2 To 7

       '2.欄迴圈

       For j = 3 To 5

           '3.輸出結果

           Cells(i, j) = Range("A" & j - 2 + (i - 2) * 3)

           '4.切割文字

           Cells(i, j) = Mid(Cells(i, j), Len(Cells(1, j)) + 1, 99)

       Next

   Next

End Sub


Public Sub 清除()

   Range("C2:E7").ClearContents

End Sub


**三欄轉回一欄

=INDEX($C$2:$E$7,INT((ROW()-1)/3)+1,MOD(ROW()-1,3)+1)


教學影音(完整版在論壇)：


教學影音完整版在論壇：

https://groups.google.com/forum/#!forum/scu_excel_vba2_86


課程特色：

1.如何將函數轉成VBA2.VBA與資料庫快速結合


EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識，

但卻是目前大家都需要的一項專業技能，要把三者融合的很好實在非常不容易，

剛好我有近20年的VB程式設計與資料庫設計的經驗，

教EXCEL函數與相關課程也有多年，因此清楚如何把最重要的知識教給大家，

ADO資料庫設計的知識非常多，但根據我多年的設計實務經驗，

覺得最重要的是掌握SQL語言，就可以輕易的完成查詢、新增、修改與刪除等功能，

就可以輕易的完成自己想處理的大量資料，大大提高工作效率了!


上課用書是：

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)


完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇：http://groups.google.com/group/labor_excel_vba?hl=zh-TW


其他相關學習：


函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數

Reply all
Reply to author
Forward
0 new messages