国产成人AV一区二区三区在线_国产成人精品无码免费看_国产成人无码无卡在线观看_国产精品成人A区在线观看_国产日韩精品欧美一区_国产亚洲精品自在久久蜜TV_久草热久草热线频97精品_久久久噜噜噜久久中文福利_久久婷婷五月综合色国产免费观看_日日狠狠久久偷偷色综合0,九一桃色在线观看,久久97精品久久久久久久不卡,国产成人精品亚洲精品

VBA復(fù)制區(qū)域數(shù)值粘貼到篩選后的可見單元格

訪客2024-12-02 05:37:202

哪位高手可以幫我寫一段代碼，VBA復(fù)制區(qū)域數(shù)值粘貼到篩選后的可見單元格VBA復(fù)制區(qū)域數(shù)值粘貼到篩選后的可見單元格

VBA復(fù)制區(qū)域數(shù)值粘貼到篩選后的可見單元格

VBA復(fù)制區(qū)域數(shù)值粘貼到篩選后的可見單元格

平常輸入數(shù)據(jù)時(shí),，就多按一下回車鍵（如下圖所示）。

VBA復(fù)制區(qū)域數(shù)值粘貼到篩選后的可見單元格

Private Sub Worksheet_Change(ByVal Target As Range)

Dim arr(), k%, n%, m%, dhk

dhk = MsgBox("不是粘貼數(shù)值到可見單元格嗎,？", vbYesNo)

If dhk = 6 Then Exit Sub

***.enableevents = False

k = selection.***.count

ReDim arr(1 To k)

n = 0

For Each y In Selection

n = n + 1

arr(n) = y

Next y

m = 0

For Each y In ***.resize(12345)

If m = k Then Exit For

If ***.height <> 0 Then

m = m + 1

***.value = arr(m)

Else

***.clearcontents

End If

Next y

***.enableevents = True

End Sub

Tags：數(shù)值單元格區(qū)域

文章評(píng)論