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提取符合條件的數
寫好了，測試通過了 option explicit sub dim arr,arr1,arr2,arr3 dim i,j arr1 array 1,0,3,6,9 arr2 array 1,4,7 arr3 array 2,5,8 i j65536 end xlup row j i while i ...
excel用VBA寫從1加到100的程式
你好，很高興為你回答這個問題。樓上的回答也很好，這裡我提供另一種思路,各位大佬自行比較。sub fillingexample dim i for i 1 to 100 cells i,1 value 1 i 2 i next end sub sub sumexample dim i dim resu...
ACCESS巨集和VBA的問題，ACCESS 巨集和VBA的問題
vba主要是用在microsoft office中，其中excel,word,ppt用的比較多，他可以把使用者手動，及迴圈操作轉換為程式自動操作，vba其實很好學，也很有意思，我們公司主要做excel vba開發的 下面是一本教你如何用vba在excel開發的書，很不錯的，你可以看看，我是在當當網上...