文字串接語法簡化及延伸請益 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 文字串接語法簡化及延伸請益

返回列表下一主題上一主題發帖

文字串接語法簡化及延伸請益

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 »

發表於 2016-2-28 22:00 | 顯示全部帖子

回復 1# 學到老死

Sub EX()
Dim xA As Worksheet, xB As Worksheet
Set xA = ThisWorkbook.Worksheets("原始EXCEL檔案")
Set xB = ThisWorkbook.Worksheets("想要的TXT檔案")
For i = 2 To xA.Cells(4 ^ 8, 1).End(xlUp).Row
xB.Cells(i, 1) = xA.Cells(i, 1) & xA.Cells(i, 2) & xA.Cells(i, 6)
Next i
End Sub

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。

返回列表下一主題上一主題