粘貼不了新的東西(粘貼突然不能用了)
1975
2025-04-02
為了替換篩選后的數(shù)據(jù)經(jīng)常會(huì)將其他區(qū)域中的連續(xù)行數(shù)據(jù)復(fù)制粘貼到篩選區(qū)域,問題是無法直接復(fù)制,這是因?yàn)楹Y選后的區(qū)域包含隱藏行,部分?jǐn)?shù)據(jù)會(huì)粘貼到隱藏行中。一般會(huì)對(duì)選擇篩選區(qū)域用“定位→可見單元格”的方法選擇可見單元格,再按“Ctrl+V”進(jìn)行粘貼,Excel會(huì)提示“ ……Excel無法粘貼信息,原因是復(fù)制區(qū)域與粘貼區(qū)域形狀不同……”。關(guān)于這個(gè)問題,可以使用輔助列或VBA的方法來解決,輔助列是用排序法把需要替換的數(shù)據(jù)放在一起再進(jìn)行復(fù)制粘貼,VBA代碼可直接把“Sheet2”表B列的數(shù)據(jù)粘貼到“Sheet1”表篩選后的區(qū)域。
例如下圖所示,左側(cè)的“Sheet1”表的A、B兩列包含一些水果名稱及數(shù)量,現(xiàn)在需要用右側(cè)“Sheet2”表B1:B7區(qū)域中的數(shù)值(用紅色標(biāo)識(shí))替換“Sheet1”表篩選“蘋果”后的數(shù)量。
方法一:使用輔助列
這個(gè)方法是用排序法把需要替換的數(shù)據(jù)放在一起再進(jìn)行復(fù)制粘貼。即先添加一個(gè)“序號(hào)”輔助列,在其中輸入數(shù)字序號(hào),再用另一個(gè)輔助列對(duì)篩選后的數(shù)據(jù)進(jìn)行標(biāo)記,按第二個(gè)輔助列排序,再復(fù)制粘貼,最后對(duì)“序號(hào)”列排序還原原數(shù)據(jù)的排列順序。具體步驟如下:
1.先取消篩選,在“Sheet1”表的C2、C3單元格分別輸入數(shù)字“1”,“2”,選擇這兩個(gè)單元格后雙擊填充柄,將序號(hào)填充到C列。
2.篩選A列中的“蘋果”。在D列第二行的單元格中輸入公式:
=ROW()
然后向下填充公式到D列的所有可見單元格。
3.取消篩選,按D列排序,將全部“蘋果”的數(shù)量排在一起。
4.復(fù)制“Sheet2”表B1:B7數(shù)據(jù)粘貼到“Sheet1”表的B2:B8區(qū)域。
5.按序號(hào)列排序,還原原數(shù)據(jù)的排列順序。
最后刪除C、D兩列,完成替換。
方法二:VBA代碼
用下面的VBA代碼可直接把“Sheet2”表B列的數(shù)據(jù)粘貼到“Sheet1”表篩選后的區(qū)域。假如“Sheet1”表的數(shù)據(jù)區(qū)域?yàn)锳1:B20,“Sheet2”表B列需要復(fù)制粘貼的數(shù)量為7個(gè),先對(duì)“Sheet1”表A列篩選“蘋果”,然后按Alt+F11打開VBA編輯器,在代碼窗口中輸入下列代碼并運(yùn)行即可。
Sub 粘貼時(shí)跳過隱藏行()Dim Rng As RangeSet Rng = Range("B2:B20").SpecialCells(xlCellTypeVisible)For Each cell In RngWorksheets("Sheet2").Cells(i + 1, 2).CopyActiveSheet.Paste Destination:=cellApplication.CutCopyMode = Falsei = i + 1If i = 7 Then EndNextEnd Sub
版權(quán)聲明:本文內(nèi)容由網(wǎng)絡(luò)用戶投稿,版權(quán)歸原作者所有,本站不擁有其著作權(quán),亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容,請聯(lián)系我們jiasou666@gmail.com 處理,核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明:本文內(nèi)容由網(wǎng)絡(luò)用戶投稿,版權(quán)歸原作者所有,本站不擁有其著作權(quán),亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容,請聯(lián)系我們jiasou666@gmail.com 處理,核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。