返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 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

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題