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巨集的編寫，如何用excel2013vba編寫巨集
excel統計學生成績時的四個難題及解決 1 一 前言 對於教師而言，經常需要用excel進行學生成績統計，會被一些常見問題難住。碰到的難題主要有 如何統計不同分數段人數 如何在保持學號不變前提下進行排名 如何將百分制轉換成不同分數段與如何用紅色顯示不及格的分數等，本文著重對這些問題的解決方法與技巧...
excel用vba自動提取多個檔案中指定位置多個字元到excel指定單元格中
19 44開始解答這個問題，那時你還沒有上傳附件，試試能不能用吧 sub 批量提取txt檔案指定位置資料 dim fso as object,ofile as object dim tx,tx0,txk as string dim r1,r2 as integer r1 2 從第2行開始寫入 將需寫...
excel 如何關閉巨集，EXCEL 如何關閉巨集
其實最快的刪除辦法就是儲存為xlsx格式 會提示你會刪除巨集，確定就好了 如果想刪除部分巨集 就雙擊對應的巨集，進入vbe進行刪除！這個是有簽字的excle檔案，如果，這個簽字檔案在你機器裡面有的，並確定是安全的的話，可以嘗試下，總是相信來自此發布的巨集，打勾，啟用巨集，另外，巨集安全性改為中，儲存...