返回列表 上一主題 發帖

如何讓相同內容的表格合併

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
1# 跳轉到 »
發表於 2011-1-3 11:17 | 顯示全部帖子
本帖最後由 basarasy 於 2011-1-3 11:20 編輯

回復 9# deyan

試試這個.
  1. Sub Macro1()

  3.   Dim MYT1, MYT2, MYT3, MYROW As Integer
  4.   
  5.    Application.DisplayAlerts = False
  6.    
  7.    MYROW = Cells([B:B].Find("*", , , , , 2).Row, 1).Row

  9.    If MYROW <= 3 Then End
  10.    
  11.    MYT1 = 3 'B3開始
  12.    
  13.     Do
  14.         
  15.     MYT2 = Range("B" & MYT1)
  16.    
  17.     MYT3 = MYT1 + 1
  18.    
  19.          Do
  20.         
  21.               If MYT2 = Range("B" & MYT3) Then
  22.    
  23.                  MYT3 = MYT3 + 1
  24.    
  25.               Else
  26.    
  27.                  Range(Cells(MYT1, 2), Cells(MYT3 - 1, 2)).Merge
  28.                   MYT2 = 0
  29.    
  30.               End If
  31.                      
  32.           Loop Until MYT2 = 0
  33.      
  34.       MYT1 = MYT3
  35.       
  36.    Loop Until MYT1 > MYROW
  37.      
  38.     Columns("B:B").HorizontalAlignment = xlCenter
  39.     Application.DisplayAlerts = True
  40. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題