上次我們分享了在Excel中如何快速用顏色分隔數(shù)字區(qū)間標示，在篩選后需要將數(shù)據(jù)復(fù)制到可見單元格中，但通常的復(fù)制操作無法滿足要求。下面將介紹一種實用方法來解決這個問題。 使用VBA宏實現(xiàn)數(shù)據(jù)粘貼到篩選可

上次我們分享了在Excel中如何快速用顏色分隔數(shù)字區(qū)間標示，在篩選后需要將數(shù)據(jù)復(fù)制到可見單元格中，但通常的復(fù)制操作無法滿足要求。下面將介紹一種實用方法來解決這個問題。

使用VBA宏實現(xiàn)數(shù)據(jù)粘貼到篩選可見單元格

首先打開Microsoft Office Excel 2007，新建文檔并保存文件名為《Excel篩選后粘貼數(shù)據(jù)如何避開隱藏單元格.xlsm》。接著按下快捷鍵ALT F11打開VBE（宏）編輯界面，然后在菜單欄插入中選擇模塊（M）。在新插入的模塊1中，復(fù)制以下VBA代碼：

```vba

Sub 選數(shù)據(jù)粘貼到篩選可見()

Dim myr As Range, myrs As Range, r As Long, c As Long, i As Long, j As Long

Dim n As Long, mb(), m

Set myrs Selection

r

c

Set myr (Prompt:"選擇增加列公式的單元格區(qū)域", Type:8)

ReDim mb(1 To )

n 0

For i 1 To

If myr.Cells(i).Value <> "" Then

n n 1

mb(n) myr.Cells(i).Row

End If

Next i

m myr.Cells(1).Formula

m Right(m, Len(m) - 1)

m Range(m).Column

For i 1 To c

For j 1 To r

myrs.Cells(j, i).Copy Cells(mb(j), m).Offset(0, i - 1)

Next j

Next i

End Sub

```

執(zhí)行動態(tài)過程及效果展示

回到工作表窗口，使用“名稱”篩選數(shù)據(jù)，然后不能直接選中“數(shù)量”列數(shù)據(jù)，而是在數(shù)據(jù)最后一列下填寫公式引用“數(shù)量”值，例如`C2`，然后復(fù)制該公式到整列，使得每行都有對應(yīng)的數(shù)值。接著選擇需要復(fù)制的數(shù)據(jù)單元格區(qū)域，運行剛才創(chuàng)建的宏“選數(shù)據(jù)粘貼到篩選可見”。

結(jié)語

如果您覺得這篇文章對您有幫助，請不要吝嗇您的支持！可以點擊“投票點贊”或“收藏”以表達感謝。如果您還有任何疑問，請點擊“我有疑問”，我們會竭誠為您解答。謝謝閱讀！