12
返回列表 上一主題 發帖

求助~拆解Cell欄位

tommy.lin

帖子
24 
主題
6 
精華
0 
積分
35 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
Taipei 
註冊時間
2012-3-19 
最後登錄
2015-1-8 
11# 跳轉到 »
發表於 2014-5-8 14:55 | 只看該作者
Hi Kubi:
又產生一個問題了@@" TOPIC ID 分開之後ID 欄位產生多個空白cell 空白的cell 需要跟上面的ID 補齊
單純手動我可以很快完成但是如何變成VBA ?

Regards
Tommy

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
12#
發表於 2014-5-8 20:00 | 只看該作者
回復 11# tommy.lin

那就將
brr(4, n) = arr2(i, 1)
移到判斷式之外。
擷取修改部份：
            If j = 0 Then
                brr(1, n) = arr2(i, 1)
                brr(2, n) = arr2(i, 2)
                brr(3, n) = arr2(i, 3)
                brr(4, n) = arr2(i, 1)
            End If
            brr(5, n) = Split(arr2(i, 4), ";")(j)

改成如下：
            If j = 0 Then
                brr(1, n) = arr2(i, 1)
                brr(2, n) = arr2(i, 2)
                brr(3, n) = arr2(i, 3)
            End If
            brr(4, n) = arr2(i, 1)
            brr(5, n) = Split(arr2(i, 4), ";")(j)
[b]Kubi[/b]

TOP

jiwen818

帖子
4 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
win7 
軟體版本
32bits 
閱讀權限
10 
性別
男 
來自
tainan 
註冊時間
2014-4-25 
最後登錄
2014-9-30 
13#
發表於 2014-5-10 23:06 | 只看該作者
其實重點是ActiveSheet.Columns(4).Replace "/", ";"這欄

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
12
返回列表 上一主題