標題: [發問] 求助各位高手大大，請問如何合併整頁的欄與相同列 ? [打印本頁]

---

作者: letugo    時間: 2015-9-23 21:01     標題: 求助各位高手大大，請問如何合併整頁的欄與相同列 ?

求助各位高手大大，請問如何合併整頁的欄與相同列 ? 詳見附件
謝謝！

---

作者: 准提部林    時間: 2015-9-24 22:26

試試VBA行不行用！
　

1. Sub TEST()
   
2. Dim xR As Range
   
3. Application.ScreenUpdating = False
   
4. With ActiveSheet.UsedRange
   
5. 　　　For Each xR In .Cells(2, 3).Resize(.Rows.Count - 1, .Columns.Count - 2)
   
6. 　　　　　If Len(xR) = 1 Then xR = Cells(xR.Row, 1) & xR　'判斷方法１：儲存格只有單一字元
   
7. 　　　　　'If xR Like "[A-Z]" Then xR = Cells(xR.Row, 1) & xR　'判斷方法２：儲存格為一個〔英文大寫〕字元
   
8. 　　　Next
   
9. End With
   
10. End Sub

複製代碼

---

作者: letugo    時間: 2015-9-25 12:42

多謝大大的幫忙，感恩 !

---

作者: letugo    時間: 2015-12-3 12:35

那麼若B 欄之後的儲存格為二個〔英文大寫〕字元又應該怎樣修改呢？
謝謝！

---

作者: 准提部林    時間: 2015-12-3 13:37

回復 4# letugo


If Len(xR) = 2 Then xR = Cells(xR.Row, 1) & xR　
或：
If xR Like "[A-Z][A-Z]" Then xR = Cells(xR.Row, 1) & xR

---

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