[發問] 請問跨欄欄位如何自行合併成跟隔壁欄位一樣

e12438

各位大大
小弟公司有很多訂單的欄位
是從公司的網拍網頁下載下來的EXCEL
其中有一項是
如附圖1
[attach]24318[/attach]
AG的欄位跟隔壁的AF欄位不一樣
是10格左右的列位

想請問如何用VBA巨集將AG的欄位變成跟AF一樣
而且能將不同的列數合併成跟一列
內容不能被刪除

luhpro

回復 1# e12438
看不到你的圖片只能自己猜測囉.

        合併前                              合併後

下載 (17.4 KB)

2016-5-21 22:01

　　

下載 (21.95 KB)

2016-5-21 22:01

1. Sub nn()
   
2.   Dim sStr$
   
3.   Dim lRows&
   
4.   Dim aR(), vA
   
5.   Dim rSou As Range
   
6. 
   
7.   Set rSou = [AF1]
   
8.   Do While rSou <> ""
   
9.     lRows = rSou.MergeArea.Count
   
10.     If lRows > 1 Then
    
11.       aR = rSou.Offset(, 1).Resize(lRows).Value
    
12.       sStr = ""
    
13.       For Each vA In aR
    
14.         If sStr <> "" Then
    
15.           sStr = sStr & " " & vA
    
16.         Else
    
17.           sStr = vA
    
18.         End If
    
19.       Next
    
20.       With rSou.Offset(, 1).Resize(lRows)
    
21.         .Clear
    
22.         .Merge
    
23.         .WrapText = True
    
24.         .Value = sStr
    
25.       End With
    
26.     End If
    
27.     Set rSou = rSou.Offset(1)
    
28.   Loop
    
29. End Sub

複製代碼

跨欄位合併成跟隔壁欄位一樣-A.zip (7.59 KB)

下載次數: 0

2016-5-21 22:03

e12438

[attach]24318[/attach]