earthmax:http://ppt.cc/okvM 我還有跟他相同的問題~ 請問有解嗎?
回覆以上
用VBA寫
Option Explicit
Sub sameMerge()
Dim i As Integer, w As Integer
Dim myMerge As Range
Application.DisplayAlerts = False
w = 1
For i = 2 To [a65536].End(3).Row
If Range("A" & i) = Range("A" & i + 1) Then
w = w + 1
Else
Range("A" & i - w + 1 & ":A" & i).Select
Selection.Merge
w = 1
End If
Next
Application.DisplayAlerts = True
End Sub
※ 引述《Rplus (R+)》之銘言：
: A B C D
: A apple A apple
: =IF(ISBLANK(A2),C1,A2)
: C1跟D1
: 請直接COPY A1 & B1
: C2:C & D2:D
: 直接COPY C2 貼上即可
: ※ 引述《earthmax (～餓死沒渴死～)》之銘言：
: : 軟體:office
: : 版本:2007
: : 舉例：
: : A apple
: : 空格 空格
: : 空格 空格
: : b bird
: : 空格 空格
: : c cat
: : 空格 空格
: : 空格 空格
: : 空格 空格
: : 資料型態如以上，想要在空格處填入上一列的資料，變成下面這樣
: : A apple
: : A apple
: : A apple
: : b bird
: : b bird
: : c cat
: : c cat
: : c cat
: : c cat
: : 因為資料有三萬多筆，不可能慢慢ctrl+d或複製貼上
: : 所以想來這裡請問大家有沒有比較快的處理方式
: : 感謝各位^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.255.22.11