返回列表 上一主題 發帖

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

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

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

Question.zip (251.52 KB)

附件

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

試試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 '判斷方法1:儲存格只有單一字元
  7.      'If xR Like "[A-Z]" Then xR = Cells(xR.Row, 1) & xR '判斷方法2:儲存格為一個〔英文大寫〕字元
  8.    Next
  9. End With
  10. End Sub
複製代碼

TOP

多謝大大的幫忙,感恩 !
天生我材必有用,千金散盡還復來

TOP

那麼若B 欄之後的儲存格為二個〔英文大寫〕字元又應該怎樣修改呢?
謝謝!
天生我材必有用,千金散盡還復來

TOP

回復 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

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題