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

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

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-9-23 21:01 | 只看該作者

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

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

Question.zip (251.52 KB)

附件

樓主熱帖

天生我材必有用，千金散盡還復來

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

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

TOP

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

4^#

發表於 2015-12-3 12:35 | 只看該作者

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

天生我材必有用，千金散盡還復來

TOP

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

3^#

發表於 2015-9-25 12:42 | 只看該作者

多謝大大的幫忙，感恩 !

天生我材必有用，千金散盡還復來

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

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

複製代碼

TOP

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。

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