標題: [發問] 請問跨欄欄位如何自行合併成跟隔壁欄位一樣 [打印本頁]

---

作者: e12438    時間: 2016-5-19 19:44     標題: 請問跨欄欄位如何自行合併成跟隔壁欄位一樣

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

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

---

作者: e12438    時間: 2016-5-19 19:48

[attach]24318[/attach]

---

作者: luhpro    時間: 2016-5-21 22:04

本帖最後由 luhpro 於 2016-5-21 22:06 編輯

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

        合併前                              合併後
[attach]24333[/attach]　　 [attach]24334[/attach]

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

複製代碼

[attach]24335[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)