1樓：匿名使用者
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if(b1=1,"a","空")，然後填充就可以了。
如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。
2樓：姓王的
sub aaa()
for i = 1 to range("a65536").end(xlup).row
if cells(i, 1) = "張" and cells(i, 2) = 1 then cells(i, 3) = "a"
next
end sub
如果要判斷b列是否為"空",可用函式 isempty (cells(i, 2)) ,當cells(i,2)沒有任何值時為"真"
3樓：弗爾佈雷斯
不用vba，公式即可解決，具體公式如下
「=if(and(mid(a1,1,1)="張",b1=1),"a","")」
4樓：匿名使用者
dim i as integer
i = 1
for i = 1 to 1000
if activesheet.cells(i,1).value = "" then
exit for
end if
if activesheet.cells(i,1).value = "張" then
activesheet.cells(i,3).value = "a"
end if
next
excel如何用vba設定符合條件的單元格填充顏色為紅色？
5樓：慶年工坊
sub xx()
m = activesheet.usedrange.item(activesheet.usedrange.count).row
n = activesheet.usedrange.item(activesheet.usedrange.count).column
for i = 12 to n
if cells(1, i) <> "" then
for j = 2 to 11
if cells(1, j) = cells(1, i) then exit for
next
for k = 2 to m
if cells(k, i) <> "" and cells(k, i) = cells(k, j) then cells(k, i).interior.colorindex = 3
next
end if
next
end sub
6樓：zzllrr小樂
'寫了這段**，你應該能看懂
sub color_by_zzllrr
for i=4 to 12
for j=1 to 10
if cells(i,12+j*2)=cells(i,j+1) then
cells(i,12+j*2).font.color=vbredend if
next j
next i
end sub
7樓：百
public c '定義全域性變數c
private sub worksheet_selectionchange(byval target as range)
on error resume next
dim one, c1%
if target.column > 1 and target.column < 12 then c = target.
column '如果第一次選中的單元格在b-k列之間，則記錄此時列號
if c = 0 then exit sub
c1 = target.column
if c1 > 13 then
for one = 4 to 12 '因為你的資料在第4行到第12行之間
if cells(one, c1) = cells(one, c) then '比較兩列的資料
cells(one, c1).interior.colorindex = 3 '塗顏色
end if
next '比較下一個
c = 0 '清空c
end if
end sub
用法: **貼上在表1的**頁中
1、在資料1中要比較的那列隨便選一個單格
2、在資料2中要比較的那列隨便選一個單格
8樓：匿名使用者
我做了一個，沒辦法發給你
如何用vba**實現在excel裡同一列資料的累加
9樓：匿名使用者
若資料為sheet1表的b2開始的b列
dim finalrow&
dim sumt& '所求合
finalrow = sheet1.cells(2,65535).end(xlup).row
sumt = worksheetfunction.sum(range("b2:" & "b" & rinalrow))
10樓：我的王是金閃閃
sub a()
range("b1")=worksheetfunction.sum(range("a1:a1000"))
end sub
如何在excel中用巨集（VBA）實現VLOOKUP的功能
function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n end fun...
EXCEL的一些問題，VBA類的巨集
方法有很多，比如elseif語句，如下。sub deletewords dim i as long for i 2 to 501 第一個刪除詞 0 then rows i i delete shift xlupi i 1 else第二個刪除詞 0 then rows i i delete shift...
excel裡面用vba新增空白行
sub insert dim i as long for i range a65536 end xlup row to 2 step 1 終止行到起始行 rows i resize 3 insert 3 為要插入的行數 next end sub sub insert dim i as long fo...