用VBA將合併格轉為假合併格

AmoKat · 发表于 2013-4-11 14:51

本帖最后由 AmoKat 于 2013-4-11 17:26 编辑

Y .jpg

問題
請教VBA如何選擇D2:D11將其轉為假合併格。

E2公式為 =D2下拉，當D欄改為假合併格時，
E欄的值就如同B欄一樣

用VBA製做假合併儲存格.rar (6.38 KB, 下载次数: 7)

doitbest · 发表于 2013-4-11 16:58

请上传附件

AmoKat · 发表于 2013-4-11 17:27

doitbest 发表于 2013-4-11 16:58
请上传附件

檔案已經上傳，拜託你指導一下

doitbest · 发表于 2013-4-12 08:42

Public Sub abc()
Dim ar, i
[d:d].Copy [f1]
[d:d].UnMerge
ar = Range("d2:d" & [e65536].End(3).Row)
For i = 1 To UBound(ar)
If ar(i, 1) = "" Then
ar(i, 1) = ar(i - 1, 1)
End If
Next
Range("d2:d" & [e65536].End(3).Row) = ar
[f:f].Copy
[d:d].PasteSpecial Paste:=xlPasteFormats
[f:f].Delete
End Sub

复制代码

doitbest · 发表于 2013-4-12 08:43

请参考附件

FL-求知 · 发表于 2013-4-12 10:09

doitbest 发表于 2013-4-12 08:43
请参考附件

LOOKUP密码怎么弄

doitbest · 发表于 2013-4-12 10:27

FL-求知发表于 2013-4-12 10:09
LOOKUP密码怎么弄

什么意思？。。

AmoKat · 发表于 2013-4-12 11:39

doitbest 发表于 2013-4-12 08:43
请参考附件

附件中沒有VBA

doitbest · 发表于 2013-4-12 11:45

AmoKat 发表于 2013-4-12 11:39
附件中沒有VBA

重新上传附件

AmoKat · 发表于 2013-4-12 11:51

doitbest 发表于 2013-4-12 08:42

謝謝

這方法是模擬手工方式
1. 先將D合併欄複製到其他F欄位
2. 解除D合併欄及填入資料
3. 將F欄的格式(合併格式)貼回D欄

這方法也是我目前想到的方法，你提供剛好與我用錄製巨集的方式來做比較精簡多，謝謝你。

不知大家還有沒有其他比較直接的方式

另外可否改為
執行程式後，先詢問合併格範圍，我再用人工選擇後在繼續執行

		自动登录	找回密码
密码			免费注册

[求助] 用VBA將合併格轉為假合併格

评分

最新热点 /1