如何在 excel 中使用巨集將列的所有值設定為相同的值

private sub commandbutton2_click()dim rag as range

for each rag in range("a2:a65536")= 60010101

nextend sub

其實這個問題不用巨集就可以完成，方法就是：

選擇 A2：A65536，輸入 60010101，然後按 Ctrl+Enter

您記錄巨集，並在最後將公式更改為。

reference:="r2c1:r65536c1"

第二行60010101，然後將滑鼠放在右下角，出現乙個十字星，按住滑鼠向下拖動，就是這樣。

sub text()

dim k as long

dim j as integer

j = range("a65536").end(xlup).rowfor k = 1 to j

if range("a" & k) = range("b" & k) then range("b" & k).clearcontents

next k

end sub

也可以做成乙個選擇變化事件872510 q 我一起學習。

如果它只是遞增 +1，則不會使用巨集，甚至不會使用公式。

假設您的值在 A 列中，並且 A1 20084057，然後輸入 20084058 A2，然後選擇 A1 和 A2 進行下拉。

如果要遞增+2或+3，可以使用公式在a2中鍵入“=a1+2”，然後將其向下拉，如果遞增+3，則寫“=a1+3”。

您不需要巨集，只需按住 Ctrl 鍵並下拉即可。

你可以在沒有巨集的情況下做到這一點！

第二行可以寫入 a1+row（a1）。

private sub worksheet_change(byval target as range)

if = 1 and >= 2 then '行和列的範圍由您決定。

cells(1, +1) = cells(1, +1end if

end sub

合成？ 這是什麼意思？ 它是直接連線在一起的嗎？ 使用連詞 Oak 取“ ”，如果需要，可以連線空間，並將它們連線到西方" "在裡面插入乙個空格就可以了。 示例：a1&"哇"&b1&" c1

試試這個方法。

sub hb()

n = a65000].end(xlup).row ' 計算最大行數。

對於 i = 1 到 n '從基底的第一線和迴圈鋒面浸潤的第一線開始，直到最後一線。

nextend sub

你能寄給我嗎？ 我可以試試嗎？

你根本不需要巨集，你只需要使用等號。

假設您的資料在 a1：c10000 範圍內。 資料行數較大。

1.選擇A1單元格，雙擊A1單元格黑色邊框的下邊框，Excel將自動滾動到A10000單元格。

2. 在單元格 A10001 中輸入 B1，在單元格 B10001 中輸入 C1。 選中 A10001 和 B10001 後，向下拖動到 20000 行。

3. A 列是您想要的資料。

若要使用巨集，請使用以下 **：

sub 合併 column（）。

j = range("a1").end(xldown)k = range("a1").end(xltoright)for m = 1 to k

for i = 1 to j

nextnext

如果只有乙個檔案要比較，你可以用函式解決它！

貼上 A 列和 B 列的幾種資料格式。

讓資料位於 A b 列中，並在 C2 中輸入以下公式 （B2>B1？ b2b1),1,"")

將滑鼠懸停在單元格的右下角，變成"+"然後向下拖拽複製到末尾，選擇所有A列，右鍵插入新列，輸入以下公式，為A列位於資料末尾的行中的資料建立序列號：

row（） 將複製的公式拖動到第二行或第一行。

選擇所有列 a、b、c d，複製--右鍵單擊-有選擇地貼上-值，然後按 d 列排序，刪除相應的行，並按 a 列排序。

複製整行不帶巨集，選擇乙個空白區域，右鍵，專門貼上，在對話方塊中選擇“轉置”，確定