1樓：匿名使用者
sub aa()
dim m '記錄相同數
dim ro as integer '記錄符合結果數字所在行k = activesheet.range("c1:c65536").end(xldown).row
ro = k
for i = k to 1 step -1m = 0
for j = 1 to len(cells(i, 3))a = mid(cells(i, 3), j, 1)if a = "0" or a = "3" or a = "6" or a = "9" then
m = m + 1
end if
next j
if m = len(cells(i, 3)) then'如果全是相同的
cells(ro, 2).select
selection.font.colorindex = 3elseif m <> 0 then
'如果不全是相同的
cells(ro, 2).select
selection.font.colorindex = 1else
goto loop1
end if
cells(ro, 2) = cells(i, 3)ro = ro - 1
loop1:
next i
end sub附圖：
2樓：匿名使用者
sub xtest()
range("b2:b65536").clear
dim i, j, k as integer
dim m1 as string
j = [c65536].end(xlup).row
for i = [c65536].end(xlup).row to 1 step -1
k = 0
if instr(cells(i, 3), "0") > 0 then k = k + 1
if instr(cells(i, 3), "3") > 0 then k = k + 1
if instr(cells(i, 3), "6") > 0 then k = k + 1
if instr(cells(i, 3), "9") > 0 then k = k + 1
if k >= 2 then
cells(j, 2) = cells(i, 3)
m1 = cells(j, 2)
m1 = replace(m1, "0", "")
m1 = replace(m1, "3", "")
m1 = replace(m1, "6", "")
m1 = replace(m1, "9", "")
if len(m1) = 0 then cells(j, 2).font.colorindex = 3
j = j - 1
end if
next
end sub
excel vba 如何在某一列查詢某一單元格,並獲得此單元格的行號
3樓：匿名使用者
給你個列子 在 c列找 包含 「寧波」 的單元格 ，如果 是完全匹配 xlpart 改成xlwhole
sub 查詢()
set findcell = columns("c").find("寧波", lookat:=xlpart)
if not findcell is nothing thenmsgbox findcell.row
else
msgbox "沒找到符合條件的單元格"
end if
end sub
4樓：莊力榮
根據什麼查詢的？還有，這個某列是啥意思？
5樓：匿名使用者
cells(2,7).select
row_num=activecell.row
column_num=activecell.column
excel中怎樣用vba計算單元格中數字的和值?
6樓：來自朱家尖積極進取的大平原狼
都是三位數嗎？用函式公式就可以算出來：
=sumproduct(--mid(b1,row($1:$3),1))
7樓：百
'從b列第一行開始逐個統計，結果顯示在c列sub tj()
for r = 1 to range("b65536").end(xlup).row
dim a
a = cells(r, 2)
dim n
n = len(a)
dim x as integer
for i = 1 to n
x = x + mid(a, i, 1)
next
cells(r, 3) = x
x = 0
next
end sub
8樓：匿名使用者
看你意思是有文字的數字要轉換成數字，插入模組，輸入以下**執行sub 求和()
i=1do while cells(i,2)<>""
sum=sum+val(cells(i,2))i=i+1
loop
msgbox sum
end sub
9樓：平陽虎
function he(rng as range)for i = 1 to len(rng)a = val(mid(rng, i, 1))he = he + a
next
end function
10樓：
資訊課上有教啊，初二的
excel中如何用vba提取單元格中的數字？
11樓：真真真白丁
請查收附件。**如下。
sub tq()
dim r, n as long
dim rg as range
dim bgarr
r = range("a" & rows.count).end(xlup).row
bgarr = range("b1:g" & r)
n = mid(range("a" & r), 2, 1)
for each rg in range("a1:a" & r)
bgarr(rg.row, 1) = --left(rg, 1)
bgarr(rg.row, 2) = --mid(rg, 2, 1)
bgarr(rg.row, 3) = --right(rg, 1)
bgarr(rg.row, 4) = --right(bgarr(rg.row, 1) + n, 1)
bgarr(rg.row, 5) = --right(bgarr(rg.row, 2) + n, 1)
bgarr(rg.row, 6) = --right(bgarr(rg.row, 3) + n, 1)
next
range("b:g").clearcontents
range("b1:g" & r) = bgarr
end sub
12樓：匿名使用者
在b1中輸入或複製貼上下列公式
=mid($a1,column(a1),1)右拉填充到d1
下拉填充
後面的沒看明白怎樣計算。
如何用excel vba 將單元格中的數字提取出來？單元格是文字和數字組成的，且一個單元格只有一組
13樓：香格里拉稻草人
這個肯定用正則了。點選**看動畫效果。
sub text()
dim reg as object, i%, arrset reg = createobject("vbscript.regexp")
arr = range("a1:a10")with reg
.global = true
.pattern = "[^0-9]"
for each sh in arr
i = i + 1
arr(i, 1) = .replace(sh, "")next
end with
[b1].resize(ubound(arr), 1) = arrset reg = nothing
end sub
14樓：余余
舉例說明一下
a1 單元格是 aba185
a2 單元格是 as21
還是a1：aba185aba
a2：as21a
請說明清楚是文字+數字 還是文字+數字+文字
15樓：冰朵兒網路
檔案發過來
16樓：
要看具體的檔案！沒有檔案寫什麼**！
excel中怎樣用vba把一列資料中與某個單元格對應的數調出來?
17樓：朝妮嘛不好改
使用以下**可完成：
18樓：匿名使用者
sub abc1()
i = range("h65535").end(xlup).rowfor j = i to 1 step -1if cells(j, 8) = 6 thencells(i, 10) = cells(j, 2)cells(i, 11) = cells(j, 3)cells(i, 12) = cells(j, 4)cells(i, 13) = cells(j, 5)cells(i, 14) = cells(j, 6)cells(i, 15) = cells(j, 7)cells(i, 16) = cells(j, 8)i = i - 1
end if
next
end sub
19樓：匿名使用者
alt+f11開啟vba，插入模組，貼上以下**，f5執行。
sub test()
dim j, k as integer
sheet1.activate
j = range("a65535").end(xlup).rowfor i = j to 1 step -1hv = cells(i, 8)
if hv = 6 then
cells(j - k, 9) = cells(i, 1)cells(j - k, 10) = cells(i, 2)cells(j - k, 11) = cells(i, 3)cells(j - k, 12) = cells(i, 4)cells(j - k, 13) = cells(i, 5)cells(j - k, 14) = cells(i, 6)cells(j - k, 15) = cells(i, 7)cells(j - k, 16) = cells(i, 8)k = k + 1
end if
next
end sub
20樓：匿名使用者
老大，列號看不清啊。
excel中如何用vba判斷一個單元格的內容是不是數字？
21樓：匿名使用者
也可以用返回值型別來判斷是不是數字
示例：dim ws as worksheetset ws = activeworkbook.activesheet
dim value as variant
value = ws.cells(16, 1)dim typevalue as varianttypevalue=typename(value)typevalue的值會返回"string","double"
"double"就是數字了
22樓：匿名使用者
isnumeric(cells(i,j))
23樓：匿名使用者
if left(cells(i,1).value,5)="2011_" then
或者if cells(i,1).value like "2011_" & "*" then
excel用vba如何做到這個?看某個單元格是不是含有另外一列的內容.
24樓：匿名使用者
先上**再跟附件，可以直接執行：
private sub commandbutton1_click()columns("b:b").clearcontentsj = 1
do until sheets(1).cells(j, 1).value = ""
find_str = sheets(1).cells(j, 1).value
k = 1
do until sheets(1).cells(k, 7).value = ""
a = sheets(1).cells(k, 7).valueb = instr(1, find_str, a)if b > 0 then
b = 1
exit do
end if
k = k + 1
loop
if b = 1 then
sheets(1).cells(j, 2).value = "是"
else
sheets(1).cells(j, 2).value = "否"
end if
j = j + 1
loop
end sub
excel加法如何操作，Excel給一列資料求和怎麼操作？
一 在excel工作表中可以用sum函式或 符號進行求和運算。如 a1 a2 a3 b1 b2 b3 用sum函式可以寫成 sum a1 b3 二 sum函式的定義 返回某一單元格區域中所有數字之和。語法sum number1,number2,number1,number2,為 1 到 30 個需要...
怎樣在excel中的一列數都直接減去數
隨便找一抄個空的單元格，鍵bai入182，複製，然後選 du擇 售價 列有zhi資料的部分，點右鍵 選擇性貼上，在彈dao出的對話方塊中 運算 一欄中選 減 確定。刪去剛才鍵入的 182 完成。注意點 貼上前務必選中 售價 列有資料部分，如果你選中整列，會導致下方原本空的單元格全變成 182，一直到...
如何在excel中求一列數的方差
number1，只有數學意義上的區別,當大面積的如學生成績統計.如果資料為樣本總體，請使用vara 工作表函式,number2，一般n不大.number1.varp都可以，實際中用的 估算樣本方差 當然我們可以求 標準差 再平方 同樣有函式公式的 有關函授的參考，估算樣本方差.語法varp numb...