帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-3-25 20:50 | 只看該作者

[發問] 資料問題

Dear 您好：

Dear:

因為在資料處裡上不知如何快速處理，是否可以寫成公式之類的，想請問大家。

題目如下

A1('123'=) ('125'=) ( '126'=) ('128'=) ('12'=) ( '17'=) ('13'=) ('19'=) ( '6'=)
A2('23'=) ('25'=) ( '26'=) ('28'=) ('2'=) ( '7'=) ('13'=) ('9'=) ( '6'=)
A3('13'=) ('15'=) ( '16'=) ('18'=) ('12'=) ( '17'=) ('13'=) ('19'=) ( '6'=)
A4('1'=) ('15'=) ( '120'=) ('122'=) ('129'=) ( '7'=) ('3'=) ('9'=) ( '6'=)

想變成

A1('123'=123) ('125'=125) ( '126'=126) ('128'=128) ('12'=12') ( '17'=17) ('13'=13) ('19'=19) ( '6'=6)
A2('23'=23) ('25'=25) ( '26'=26) ('28'=28) ('2'=2') ( '7'=7) ('13'=13) ('9'=9) ( '6'=6)
A3('13'=13) ('15'=15) ( '16'=16) ('18'=18) ('12'=12) ( '17'=17) ('13'=13) ('19'=19) ( '6'=6)
A4('1'=1) ('15'=15) ( '120'=120) ('122'=122) ('129'=129) ( '7'=7) ('3'=3) ('9'=9) ( '6'=6)

因為資料很多，所以想寫公式作取代，就是在原資料括號內的等於後面加上跟前面一樣的數字，想說用萬用字元搜尋('*'=*),但這樣似乎不行，想請教各位，是否有快速的方法呢，因為資料太多頁了

再麻煩解答

謝謝您

樓主熱帖

jj369963

中學生 Rank: 2

帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

4^#

發表於 2012-3-27 22:38 | 只看該作者

回復 3# chin15

沒有用過VBA，但是試著用大大提供的程式，果然成功，真是太神奇了，會再進修VBA的部份，來加強自己。

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

3^#

發表於 2012-3-25 23:38 | 只看該作者

本帖最後由 chin15 於 2012-3-25 23:40 編輯

相當有難度，還是寫vba快吧。

Sub test()
Cells.Replace " '", "'"
For Each a In [a:a].SpecialCells(2)
x = Split(a & " ", "(")
For i = 1 To UBound(x)
m = Val(Mid(x(i), 2))
x(i) = "(" & Left(x(i), Len(x(i)) - 2) & m & Right(x(i), 2)
Next
a(1, 2) = Join(x)
Next
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-3-25 23:26 | 只看該作者

回復 1# jj369963
有沒有快速方法?倒是還沒想出來
用公式還有點複雜
1、選取B1儲存格
2、建立4個名稱
   k=(COLUMN(Sheet1!A$1)-1)*2+1
   x=(LEN(Sheet1!$A1)-LEN(SUBSTITUTE(Sheet1!$A1,"'","")))/2
   y=MID(Sheet1!$A1,SMALL(ar,k)+1,SMALL(ar,k+1)-SMALL(ar,k)-1)
   ar=SMALL(IF(MID(Sheet1!$A1,ROW(INDIRECT("A1:A"&LEN(Sheet1!$A1))),1)="'",ROW(INDIRECT("A1:A"&LEN(Sheet1!$A1))),""),ROW(INDIRECT("A1:A"&x*2)))
3、B1公式="('"&y&"'="&y&") "
向下向右複製到J4
4、K1公式=B1&C1&D1&E1&F1&G1&H1&I1&J1
向下複製

學海無涯_不恥下問

TOP