返回列表 上一主題 發帖

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

e12438

帖子
2 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
XP 
軟體版本
OFFICE2007 
閱讀權限
10 
註冊時間
2016-5-19 
最後登錄
2016-5-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-19 19:44 | 只看該作者

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

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

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

e12438

帖子
2 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
XP 
軟體版本
OFFICE2007 
閱讀權限
10 
註冊時間
2016-5-19 
最後登錄
2016-5-19 
2#
發表於 2016-5-19 19:48 | 只看該作者
[attach]24318[/attach]

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
3#
發表於 2016-5-21 22:04 | 只看該作者
本帖最後由 luhpro 於 2016-5-21 22:06 編輯

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

        合併前                              合併後
　　
  1. Sub nn()
  2.   Dim sStr$
  3.   Dim lRows&
  4.   Dim aR(), vA
  5.   Dim rSou As Range

  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)

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題