Excel利用VBA比較同行字符串一例

Excel利用VBA比較同行字符串一例

如圖所示，在Excel工作表的A、B、C、D四列的1-10行都放有字符串，現(xiàn)在要把B、C、D三列中的字符串分別與A列同一行的字符串相比較，如果含有A列字串的某個(gè)字符，就把這個(gè)字符變成紅色（A列不變）。例如第6行中分別有四個(gè)字符串“H1N1”、“h1n1”、“流感”、“甲型H1N1”，B6單元格中的“h1n1”與A6單元格中的“H1N1”都含有字符“1”，就將B6單元格中的字符“1”改為紅色；C6單元格中的“流感”與A6單元格中的內(nèi)容不同，就不變色；D6單元格中的字符串“甲型H1N1”包含A6單元格中的“H1N1”，也將其中的“H1N1”變成紅色。

下面是VBA代碼：

Sub colorX()For r = 1 To 10lenr = Len(Cells(r, 1))For c = 2 To 4lenc = Len(Cells(r, c))For i = 1 To lenrFor j = 1 To lencIf Mid(Cells(r, c), j, 1) = Mid(Cells(r, 1), i, 1) ThenCells(r, c).Characters(Start:=j, Length:=1).Font.ColorIndex = 3End IfNextNextNextNextEnd Sub

說明： B, C, D 三列的數(shù)據(jù), 一定要是文本，如果是是數(shù)字，則只會(huì)判斷第一個(gè)字符。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(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)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。