返回列表 上一主題 發帖

[發問] 合拼資料問題

yuras

帖子
16 
主題
10 
精華
0 
積分
41 
點名
0  
作業系統
WINDWOS 7 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
來自
台灣 
註冊時間
2010-10-12 
最後登錄
2014-7-7 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-12-28 21:50 | 只看該作者

[發問] 合拼資料問題

小妹又來跟各位高手請益一下 我只會用CONCATENATE 但好像有限制


如何將 sheet2 A欄位資料合拼至Sheet1 Ａ2欄位並加有 "；"  ex: [email protected];[email protected]
謝謝 ^^
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2012-1-2 08:51 | 只看該作者
回復 5# yuras
連結不連續範圍的字串
  1. Function 字串連接(連接符號 As String, ParamArray 字串範圍()) As String
  2.     Dim i As Integer, e As Variant
  3.     For i = 0 To UBound(字串範圍)
  4.         For Each e In 字串範圍(i)
  5.         If e <> "" Then 字串連接 = IIf(字串連接 = "", e, 字串連接 & 連接符號 & e)
  6.         Next
  7.     Next
  8. End Function
複製代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-1-1 22:51 | 只看該作者
回復 5# yuras
  1. Function JoinStr(str_array As Range, dot As String)
  2. '連接字串語法:JoinStr(單欄或單列儲存格範圍,連接符號)
  3. If str_array.Columns.Count = 1 Then
  4.    JoinStr = Join(Application.Transpose(str_array), dot)
  5.    Else
  6.    JoinStr = Join(Application.Transpose(Application.Transpose(str_array)), dot)
  7. End If
  8. JoinStr = Replace(JoinStr, dot & dot, dot)
  9. End Function
複製代碼
學海無涯_不恥下問

TOP

yuras

帖子
16 
主題
10 
精華
0 
積分
41 
點名
0  
作業系統
WINDWOS 7 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
來自
台灣 
註冊時間
2010-10-12 
最後登錄
2014-7-7 

論壇贊助勳章
5#
發表於 2012-1-1 22:33 | 只看該作者
回復 3# Hsieh

不好意思 再護問您一下  如果我把 2!A2:A100,";") 選取範圍欄位拉大，會變成空格部份會自動補 ;;;;;;;;;;;;;;;;;;;;;;;
EX: [email protected];[email protected];[email protected];[email protected];[email protected];
[email protected];[email protected];[email protected];::::::::::::::::::::::::::::
那如何空格部份不要目動補“；“   謝謝 !! :P

TOP

yuras

帖子
16 
主題
10 
精華
0 
積分
41 
點名
0  
作業系統
WINDWOS 7 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
來自
台灣 
註冊時間
2010-10-12 
最後登錄
2014-7-7 

論壇贊助勳章
4#
發表於 2011-12-29 06:48 | 只看該作者
回復 3# Hsieh

謝謝 ^^

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-12-28 23:20 | 只看該作者
回復 1# yuras
寫個自定義函數運用
一般模組
  1. Function JoinStr(str_array As Range, dot As String)
  2. '連接字串語法:JoinStr(單欄或單列儲存格範圍,連接符號)
  3. If str_array.Columns.Count = 1 Then
  4.    JoinStr = Join(Application.Transpose(str_array), dot)
  5.    Else
  6.    JoinStr = Join(Application.Transpose(Application.Transpose(str_array)), dot)
  7. End If
  8. End Function
複製代碼
學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2011-12-28 22:17 | 只看該作者
回復 1# yuras

合併.rar (1.77 KB)

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題