求助各位高手大大，請問如何合併整頁的欄與相同列 ? - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 求助各位高手大大，請問如何合併整頁的欄與相同列 ?

返回列表下一主題上一主題發帖

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

1^# 跳轉到 »

發表於 2015-9-24 22:26 | 顯示全部帖子

試試VBA行不行用！
　

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

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

2^#

發表於 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

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題