在excel中，請使用VBA在兩列資料中提出相同的數字。

Pro，開啟你的excel檔案，按“alt+f11”開啟vba視窗，然後雙擊左側對應的工作表，在右側的空白處貼上以下**。 關閉 VBA 視窗。 然後按“Alt+F8”開啟巨集視窗，選擇剛剛插入的巨集，然後單擊“執行”。

sub cz()

dim f as range: dim i, n as integer

n = 3357: columns("d").numberformat = "@"

for i = 3357 to 3343 step -1

set f = range("b3343:b3357").find(range("a" & i).value)

if not f is nothing then range("c" & n).value = i: range("d" & n).

value = range("a" & i).value: n = n - 1

nextend sub

使用字典，將列 b 插入字典的鍵值中，然後迴圈列 a 以確定字典的鍵是否存在，然後將現有行寫入以下列。 前提是 b 列不重複！

子 lookup（）。

set d = createobject("")h = [b65536].end(3).rowarr = range("b1:

b" & h)for i = 1 to ubound(arr, 1)val(arr(i, 1)),""

next i

for i = h to 1 step -1if , 1)))then

cells(h, 3) = i

cells(h, 4) = cells(i, 1)h = h - 1

end if

nextend sub

有乙個錯誤，乙個問題現在得到了糾正。

sub jk()

dim i, j, k

i = [a65536].end(3).rowcells(i, 3).select

for j = i to 1 step -1for k = i to 1 step -1if cells(j, 1) = cells(k, 2) thenselection = j

1) = cells(j, 1)

0).select

end if

nextnext

end sub

A列本身是重複的，B列本身是重複的嗎？

這可以與 2 個巢狀迴圈進行比較，將 A 列中的第乙個資料和 B 列中的第乙個資料進行比較，如果不重複，則轉到 B 的第二列，如果重複，則轉到 A 列中的第二個資料，依次進行比較。 大約十幾句話，新增乙個按鈕：（假設資料從第二行開始）。

private sub commandbutton1_click()

row_a = 2: row_b = 2

endrow_b = [a65536].end(xlup).row

do while cells(row_a, 1) <""

do while cells(row_b, 2) <""

if cells(row_a, 1) = cells(row_b, 2) then

cells(row_b, 2). = 6

msgbox ("b" & row_b & "行是重複的")

exit do

else: if row_b = endrow_b then

exit do

else: row_b = row_b + 1

end if :end if

looprow_a = row_a + 1

row_b = 2

loopend sub

開啟 Excel，如下圖為例：

在a列前插入一列，以整列為單位，防止資料量過大時丟棄資料。

輸入公式：=trim（b2） 在新的 A1 單元格中輸入（該公式的目的是規範化替換資料的字型、大小和位置，以便在排序時可以將相同的資料放在一起）。

將滑鼠放在單元格 A1 的右下角，將其變成乙個實心下拉選單，複製、貼上為值並刪除 B2 列（舊版本的 Excel 不直接貼上為值，需要貼上 - 貼上 - 貼上為值）。

在 C 列之前插入一列，並在 C1 中插入公式 =trim（d2）。

將滑鼠放在單元格 C1 的右下角，使其成為乙個實心下拉列表，複製、貼上為值並刪除 D2 列。 此步驟與上述步驟相同，目的是將需要組織成相同格式的兩列資料進行調整。

在 C 列和 D 列之前插入兩列，然後輸入公式 =if（isna（vlookup（$a 1，$e：$f，column（）-2,0）），""，vlookup（$a 1，$e：$f，column（）-2,0）），公式是通用的，使用其他公式時也可以使用，最重要的是內括號中的內容，“$a 1"表示要在其中查詢資料的單元格“$e：”。

f“表示要在那個區域找到資料，”-2,0“表示有幾列資料需要搜尋，雖然公式比較長，但並不難記住，可以看出公式的前半部分和後半部分是一樣的。

將滑鼠放在C1單元格的右下角，將其變成乙個實心下拉選單，複製，貼上為數值（貼上此步驟作為數值可以視情況而定，如果資料不完善需要更改，盡量保持資料的公式格式， 並將所需零件複製並貼上到其他零件）。

6.刪除E、F列，**完成（根據個人經驗，刪除原始資料時，我會提前將資料貼上到G、H列重新排序，並與之前的資料進行比較，檢查是否會有損失）。

====57132899====

提取公式，然後進行篩選。

具體實現如下：

1234567891011121314151617sub abc() dim d as object, i as integer, index as integer set d = createobject("") with sheet1 for i = 1 to range("b65536").end(xlup).row d(.

cells(i, 2).value) = "" next for i = 1 to range("a65536").end(xlup).

row if not , 1).value) then index = index + 1 .cells(index, 3) = .

cells(i, 1) end if next end withend sub

使用字典更方便，省去了重複迴圈的過程。

如果資料量大，則雙層迴圈的效率非常低。

1. 開啟Excel**，首先選擇需要比較相同和不同資料的列。

2.然後單擊工具欄中的“條件格式”，然後在下拉選單中選擇“突出顯示單元格規則”。

3.之後，在開啟的選項中選擇“重複值”。

4.單擊以開啟“重複值”對話方塊，然後單擊“確定”按鈕。

5.您可以使用紅色背景標記所選單元格中的相同專案。

你的訴求不是很清楚。

根據你的描述，我想你應該想要達到以下效果，即如果A列和B列的資料相同，那麼相同兩個資料的單元格將用相同的顏色填充。 （如下圖所示，這是我手動填充顏色完成的示例）。

那麼我可以告訴你，以excel的常規操作（公式、條件設定、選單功能等），我認為應該不可能實現你的需求。

目前，excel的常規操作可以實現：1使用公式在 ab 列中選擇相同的資料（例如 vlookup 公式）; 2.如果同一列中有相同的資料，則所有相同的資料都用相同的顏色填充。 等一會。 （下圖）。

當然，使用VBA方法也許能夠滿足您的需求，您需要VBA大師來幫助您。 或者，還有其他 excel 大師有很好的方法。

另外，如果 AB 列中有 100 萬個相同的資料，是否必須填寫 100 萬種不同的顏色？ 然後有很多顏色是你的眼睛無法區分的。

使用“條件格式”標籤，選擇列 A 和 B，啟動“樣式”條件格式，建立新規則，然後使用以下公式：

countif($a:$b,a1)>1

格式：填充紅色;

用紅色填充的是相同的物品，沒有填充顏色的物品是不同的物品）。

以問題為內容（郵件主題必須包含“excel”，我會以此為依據識別非垃圾郵件，以免誤刪），將excel示例檔案（顯示當前情況和目標效果）作為附件傳送閱讀。

要通過並集方法解決問題，請參考我的空間並集。

以下**已完成。

讓您的資料位於 A 列和 B 列中，並將兩列中的唯一資料提取到 C 列中。

sub 提取兩列未重複的資料 1 （）。

dim d, temp

dim r&, r1

dim arr, arr1

set d = createobject("")r = range("a65536").end(xlup).rowr1 = range("b65536").

end(xlup).rowarr = range("a1:a" & r).

valuearr1 = range("b1:b" & r1).valuefor each temp in arr

d(temp) = 1

nextfor each temp in arr1d(temp) = 1

nextrange("c1").resize(, 1) =end sub

您只需將實際資料列 A、B 和 C 替換為實際列標籤，列 A 和 B 可以新增或減去資料。

將 2 列資料複製到一列中並刪除重複項。

刪除一行是什麼意思？ 你能具體說一下嗎？