Re: [算表] Excel巨集-相同文字跨欄置中問題(VBA)
以下是 VBA 程式，使用方法
1. Alt+F11
2. 在左邊視窗上, 按滑鼠右鍵->插入->模組
3. 在右邊視窗上, 貼上以下程式碼
4. Alt+Q
5. Alt+F8 選巨集->執行即可
Option Explicit
Sub Macro()
Dim lastrow As Long, nextcol As Long, lastcol As Long, i As Long
Dim pre As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Application.DisplayAlerts = False
pre = 1
i = 2
While (i <= lastrow + 1)
If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
Range("A" & pre & ":A" & i - 1).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
pre = i
End If
i = i + 1
Wend
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox ("完成")
End Sub
※ 引述《liu51333 ( )》之銘言：
: 軟體:M$ office,excel
: 版本:2007
: 問題：如何使用巨集自動分類相同文字並使其跨藍置中？
: 舉例，
: A 變成 A
: 1 PIG 1
: 2 PIG 2 PIG
: 3 PIG 3
: 4 PIG 4
: 5 DOG 5
: 6 DOG 6
: 7 DOG 7 DOG
: 8 DOG 8
: 9 DOG 9
: 10 CAT 10
: 11 CAT 11 CAT
: 12 CAT 12
: 在這裡先謝了~~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.75.61
推
07/28 00:16, , 1F
07/28 00:16, 1F
→
07/28 00:17, , 2F
07/28 00:17, 2F
推
07/28 00:21, , 3F
07/28 00:21, 3F
→
07/28 00:23, , 4F
07/28 00:23, 4F
→
07/28 00:32, , 5F
07/28 00:32, 5F
→
07/28 00:34, , 6F
07/28 00:34, 6F
Office 近期熱門文章
PTT數位生活區 即時熱門文章