vba如何實現同一列中如相鄰單元格內容相同則只列印單元格內容,其餘為空白

時間 2022-09-10 18:20:09

1樓:

可以把相同的單元格的字型顏色改成白色,然後再列印。

**如下:

sub my()

dim i as long

for i = 2 to [a65536].end(xlup).row

if cells(i, 1) = cells(i - 1, 1) then

cells(i, 1).font.themecolor = xlthemecolordark1

end if

next

end sub

但是可能是你的實際問題描述不是很具體,我覺得可能合併單元格對你更有用。

**如下:

sub 合併同列相同單元格()

dim a as long

for a = 1 to [a65536].end(xlup).row

if cells(a + 1, 1) <> cells(a, 1) then

dim i as long

dim j as long

j = a + 1

for i = j to [a65536].end(xlup).row

if cells(i, 1) <> cells(i + 1, 1) then

range("a" & j & ":a" & i).select

selection.merge

exit for

end if

next

end if

next

end sub

兩者二選一。選擇合適自己的吧。

ps:注意備份,以防萬一。

2樓:匿名使用者

if then printout

excel中如何實現 判斷一列中是否有空值,如有則將對應另一列中內容全填進指定單元格

公式為 注 textjoin函式需新版office支援 textjoin if b1 b10 a1 a10,陣列公式,按ctrl shift enter產生花括號。如果用wps 公式中的第二引數不能省略 textjoin 1,if b1 b10 a1 a10,如圖所示 在b11中輸入或複製貼上下列公...

在excel中同一列中如何去掉相同的內容

紀蔭高清昶 一般有兩種方式。檢視 分頁預覽 或選中34行,ctrl shift 右鍵 隱藏。選中16列 p列 ctrl shift 右鍵 隱藏。 假設你的資料在a列,你可以在b1輸入公式 countif a a,a1 然後選中b1向下複製公式,然後選中a和b列,對b列按降序進行排序,排序完後,從第一...

ecel如何在同一列中輸入相同的數字

佟佳俠營能 在第一行和第二行輸入相同的數字,然後選中這兩個單元格下拉 滑鼠移到第二個單元格右下方變十字形時,點滑鼠左鍵下拉 就可以了。 在名稱框 編輯欄最左側的小方框 裡輸入 a1 a5500 後按回車 然後按1,再按ctrl enter 佰事皆樂 最近在使用wps時也遇到這樣的問題,用以下方法可以...