Re: [問題] excel儲存格合併(VBA)
VBA執行的方法請看精華區，或找之前的文章
Option Explicit
Sub Macro1()
Dim count As Integer
Dim i As Integer
count = Val(InputBox("要合併多少次？", "要合併多少次"))
Application.ScreenUpdating = False
For i = 1 To count
Range("A" & 2 * i - 1 & ":A" & 2 * i).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Next i
Application.ScreenUpdating = True
Range("A1").Select
MsgBox ("完成")
End Sub
※ 引述《ShiloWei (俺是鋼彈)》之銘言：
: (若是和其他不同軟體互動之問題 請記得一併填寫)
: 軟體:excel
: 版本:2003
: (表格狀況如下)
: A
: 1
: 2
: 3
: 4
: 5
: 6
: .
: .
: .
: .
: 如我想要把A1跟A2合併、A3跟A4合併、A5跟A6合併，以此類推下去。
: 不知道有沒有辦法讓系統自行去合併呢?
: 不然慢慢圈選然後合併，實在是按到快瘋掉了。
: 感謝強者幫忙解答，先致上感謝之意。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.84.79
推
05/25 14:02, , 1F
05/25 14:02, 1F
→
05/25 15:20, , 2F
05/25 15:20, 2F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
