批量替換不同的數(shù)據(jù)

1、全選

2、按CTRL+H（查找替換快捷鍵）

3、查找框中輸入需替換的數(shù)據(jù)－－替換框中輸入想替換為的數(shù)據(jù)－－全部替換就行。

你好，樓主想要的功能，可以使用VBA程序?qū)崿F(xiàn)。

（一）VBA程序代碼如下：（代碼運行之前請做好數(shù)據(jù)備份，以免丟失）

Sub?abcd()
Dim?i1,?i2,?i3,?str
On?Error?Resume?Next
Set?mysheet1?=?ThisWorkbook.Worksheets("Sheet1")??'定義工作表Sheet1

For?i1?=?1?To?1000??'從第1行到1000行
?If?mysheet1.Cells(i1,?1)?<>?""?Then?????'如果單元格不是空白，則
??str?=?Mid(mysheet1.Cells(i1,?1),?1,?1)?'截取第一個字符
??If?IsNumeric(str)?=?True?Then??????????'如果截取的字符是數(shù)字，則
???i2?=?i1
???i3?=?1
??Else
???i3?=?i3?+?1
??mysheet1.Cells(i2,?i3)?=?mysheet1.Cells(i1,?1)??'把ABCD項寫入含有數(shù)字的那一行
?End?If
End?If
Next

End?Sub

（二）程序運行前后的結(jié)果如下圖所示，望笑納。

你好，樓主想要的功能，可以使用VBA程序?qū)崿F(xiàn)。

（一）VBA程序代碼如下：（代碼運行之前請做好數(shù)據(jù)備份，以免丟失）

Sub?abcd()
Dim?i1,?i2,?i3,?str
On?Error?Resume?Next
Set?mysheet1?=?ThisWorkbook.Worksheets("Sheet1")??'定義工作表Sheet1

For?i1?=?1?To?1000??'從第1行到1000行
?If?mysheet1.Cells(i1,?1)?<>?""?Then?????'如果單元格不是空白，則
??str?=?Mid(mysheet1.Cells(i1,?1),?1,?1)?'截取第一個字符
??If?IsNumeric(str)?=?True?Then??????????'如果截取的字符是數(shù)字，則
???i2?=?i1
???i3?=?1
??Else
???i3?=?i3?+?1
??mysheet1.Cells(i2,?i3)?=?mysheet1.Cells(i1,?1)??'把ABCD項寫入含有數(shù)字的那一行
?End?If
End?If
Next

End?Sub

（二）程序運行前后的結(jié)果如下圖所示，望笑納。

思路分三步：

第一步，找到每個分類中最小的值

使用公式為MIN()和IF()的組合

(1)??? MIN(數(shù)值集合) 結(jié)果返回集合內(nèi)最小值

(2)??? IF(滿足判斷條件,結(jié)果1,不滿足結(jié)果2) 返回判斷后的結(jié)果1或2

第二步，判斷每一行的值是否為所屬分類中的最小值

同樣使用IF()進行判斷，使用方法同上

以N5為例，將以上兩步驟公式組合為：{=IF(MIN(IF($L$5:$L$17=L5,$M$5:$M$17))<>M5},"

注意：公式中的花括號并非手動輸入，而是數(shù)據(jù)計算時同時按下三鍵組合(Shift+Ctrl+Enter)自動生成。

第三步，如果所在行是所屬分類中的最小值，則顯示”這行數(shù)居有用”，反之則顯示”沒用要刪除”，并使用條件格式自動標色

(1)? ?在開始菜單欄，找到”條件格式”并單擊，下拉菜單中選擇”新建規(guī)則”;。

(2)??? 在彈出對話框中進行設(shè)置，詳見下圖紅圈圈設(shè)定內(nèi)容

A題干描述的重點是“衡量的尺子”,這是在強調(diào)評價學(xué)生的標準要多元 化。正是因為人類智能具有多元性,我們在對學(xué)生評價時要進行多方面評價。故本題選 A。