返回列表 上一主題 發帖

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

letugo

帖子
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)

附件

收藏 分享
天生我材必有用，千金散盡還復來

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-6-27 
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

帖子
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

帖子
28 
主題
10 
精華
0 
積分
42 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2010-5-10 
最後登錄
2018-2-28 
3#
發表於 2015-9-25 12:42 | 只看該作者
多謝大大的幫忙，感恩 !
天生我材必有用，千金散盡還復來

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-6-27 
2#
發表於 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
複製代碼

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題