1樓：布織道士
'如前兄所述，**號碼是可以用條件格式（或其中的公式）來處理的，本人不再贅述。
'但要將所有紅色字型的資料提取出來，則建議使用vba程式設計來處理，其結果一定能讓你滿意。
'以下是顯示和提取程式，已經除錯好的，望能給你帶來方便。
'操作步驟：
'1.請將本文全部內容複製到要處理的工作簿的「工具/巨集/visual basic 編輯器」下的「thisworkbook」**內容欄或新建的模組內容欄中
'2.然後選定要處理的工作表，單擊「工具/巨集/巨集」下的「顯示活動表紅色字型單元格」或「提取
'活動表紅色字型單元值」便可以了。
'注意：
'1.提取出的紅色資料存放在新建的帶「副」字的工作表中，兩次提取同一表時，須將前次生成帶「副」字的表另改名稱。
'2.部分限定數值可以根據實際情況重新設定，以提高執行效率。
'3.若要顯示或提取其它顏色的資料，只須更改相應的顏色數值代號便可。
'4.開啟帶有**的工作簿是須「啟用巨集」
sub 顯示活動表紅色字型單元格() '顯示原則:只顯示紅色字型的資料
set 活動工作表 = thisworkbook.activesheet
dim 列標組(1 to 256)
abc = " abcdefghijklmnopqrstuvwxyz"
for i = 1 to 10 '列標代號
for j = 2 to 27
m = m + 1
if m > 256 then exit for
列標 = mid(abc, i, 1) & mid(abc, j, 1)
if mid(列標, 1, 1) = " " then 列標 = mid(列標, 2, 1)
列標組(m) = 列標
next j
next i
for i = 1 to 256
for j = 1 to 65536
if 活動工作表.cells(j, i) = "" then
n = n + 1
else
n = 0
if 活動工作表.cells(j, i).font.colorindex = 3 then exit for '紅色=3,綠色=...
end if
if n >= 500 then '單列連續出現500個空單元格則隱藏列並退出檢測
columns(列標組(i) & ":" & 列標組(i)).entirecolumn.hidden = true '隱藏列
n = 0
x = x + 1
exit for
end if
next j
if x >= 20 then '連續出現20列無內容則退出檢測
x = 0
exit for
end if
next i
for j = 1 to 65536
for i = 1 to 256
if 活動工作表.cells(j, i).entirecolumn.hidden = true then i = i + 1
if 活動工作表.cells(j, i) = "" then
n = n + 1
else
n = 0
if 活動工作表.cells(j, i).font.colorindex = 3 then exit for '紅色=3,綠色=...
end if
if n >= 50 then '單行連續出現50個空單元格則隱藏行並退出檢測
rows(j & ":" & j).entirerow.hidden = true '隱藏行
n = 0
x = x + 1
exit for
end if
next i
if x >= 200 then '連續出現200行則退出檢測
x = 0
exit for
end if
next j
end sub
sub 提取活動表紅色字型單元值() '提取原則:同列資料放於新建表同一列下，建議將欄位行字型也設為紅色
set 原活動工作表 = thisworkbook.activesheet
sheets.add.name = 原活動工作表.name & "副"
set 現活動工作表 = thisworkbook.activesheet
for i = 1 to 256
m = 0
n = 0
for j = 1 to 65536
if 原活動工作表.cells(j, i) = "" then
n = n + 1
else
k = 0
if 原活動工作表.cells(j, i).font.colorindex = 3 then
m = m + 1
現活動工作表.cells(m, i) = 原活動工作表.cells(j, i)
現活動工作表.cells(m, i).font.colorindex = 3
end if
end if
if n >= 500 then '單列連續出現500單元格無內容則退出檢測
k = k + 1
exit for
end if
next j
if k >= 20 then exit for '連續出現20列無內容則退出檢測
next i
end sub
'有問題請聯絡:[email protected] 順祝如意！
2樓：
沒有簡潔的辦法 只能按住ctrl一個一個選擇完畢 點剪下就成了
3樓：匿名使用者
會編vba麼,參考下這個.我懶的弄了,一定要好好研讀我給你的**哦,不然你會後悔的,祝你成功
sub aa()
dim a as range
dim i%, bend as long
bend = range("b65536").end(xlup).row
for each a in range("b1:b" & bend)if a.font.colorindex = 3 theni = i + 1
end if
next
msgbox "紅色單元格有" & i & "個"
end sub
jenny9795的答案第二個不錯，第一個不敢苟同，要的是選出來，那樣不如直接複製貼上好了
為什麼我做的泡菜不是紅顏色的
親愛滴，我已經 說過了，辣椒麵最好是用韓國產的偏紅，不是很辣，實在買不到市場的辣椒麵也是可以的，做法最好看看我寫的那個做法，料很全，味道非常好，很多都是跟著我學做的嗎，都反映很好的 來個效果圖我做的哈 是我自己寫的教程希望對你有幫助 辣椒麵少了應該是辣椒麵要放好多哦。那才會有味道。還有就是，暫時顏色...
紅顏色象徵著什麼，紅色的象徵意義是什麼？
最低0.27元開通文庫會員，檢視完整內 原發布者 李鵬亞 紅色象徵什麼 篇一 紅色象徵什麼 篇二 紅色象徵什麼 紅色是最古老的顏色,也是人們最早命名的顏色.哲學家黑格爾曾經說過,紅色看起來就像是 最具象的顏色 如果我們窮根究底,就會進入更深層次的語言學範疇 譬如詞源學 研究詞的 語言 的學說 並且會...
女人如何選擇適合自己的口紅顏色，女人如何選擇一個適合自己的口紅顏色？
女人的口紅可以說是最愛的東西了，永遠不嫌棄多，而且對於女人來說一支合適的口紅可以為自己的打扮加分，而且還對於自己形象氣質上的提升特別有幫助。首先要根據自己的膚色挑選口紅。比較偏白的妹子就really幸運了！恭喜你適合所有的色號！偏黃色的妹子可以選擇偏暖色調，比如橙紅色 玫瑰酒紅色，只要不涉及到粉色系...