1樓：真真真白丁
c1貼上這個陣列公式，按「ctrl+shift+回車」結束輸入，下拉：
=if(sum((left($a$1:$a$5000,len(a1))=text(a1,"@"))*((len($a$1:$a$5000)-len(substitute($a$1:
$a$5000,".","")))=(len(a1)-len(substitute(a1,".","")))+1)*$b$1:
$b$5000)<>0,sum((left($a$1:$a$5000,len(a1))=text(a1,"@"))*((len($a$1:$a$5000)-len(substitute($a$1:
$a$5000,".","")))=(len(a1)-len(substitute(a1,".","")))+1)*$b$1:
$b$5000),b1)
2樓：匿名使用者
dim arr(10000)
for i=1 to 20000
if range("a"&i).value<>"" then'判斷
if pot=0 then
arr(1)=i&"|"& "zo" & "!" & arr(1)end if
if pot=1 then
arr(2)=i&"|"& "tw" & "!" & arr(2)end if
if pot=2 then
arr(3)=i&"|"& "th" & "!" & arr(3)end if
if pot=3 then
arr(4)=i&"|"& "fo" & "!" & arr(4)end if
end if
next i
for i=1 to 4
不想了。
next i
excel中使用vba如何實現以下操作
3樓：匿名使用者
sub 填寫序號()
range("a:a") = ""
dim i as integer
if cells(1, 2) <> "" and cells(1, 3) <> "" then
for i = 1 to cells(1, 3)cells(i, 1) = cells(1, 2) + i - 1next
end if
end sub
在excel 2019中如何在多個excel工作簿間快速切換
幾乎每個excel使用者都應該知道，如果乙個excel工作簿中包括許多個工作表，可以通過單擊視窗下方的工作表標籤來啟用不同的工作表。單擊標籤可以切換不同的工作表 除了這種方法之外，還有一些不為人熟知的工作表導航技巧，下面分別介紹一下。方法一 用快捷鍵快速導航工作表 其中一種比較好用的快速導航技巧是，...
如何在Excel2019圖表中顯示資料表
1 首先選擇要新增資料系列資料標籤的圖表。2 選擇 圖表工具 布局 功能選單，單擊工具欄中的 資料標籤 按鈕。3 在彈出的下拉列表中選擇 顯示 命令，此命令的作用就是開啟所選內容的資料標籤。4 回到圖表中，我們可以看到在資料系列上顯示了資料標籤。5 如果使用者對資料標籤的字型格式不滿意，可以選擇資料...
EXCEL2019如何自動新增批註
自動填加 好象是不行呀 你自己修改的時候 就在旁邊插入批註不就好了 具體 如下 dim ydtext as string 原單元格值 private sub worksheet change byval target as range if target.cells.count 1 then dim...
如何保護Excel 2019工作表
有，點選excel圖示 有個準備 加密文件 設定好你的密碼以後除了你就沒人能看了，你可別把密碼設定成太簡單的了工具 保護工作表 把所有的勾勾都去掉 設定密碼 確定別說複製，他連點選都點選不了，只能閱讀了 應該不行，只要別人能看到，就能複製，但可以設定保護，不讓別人更改，或者不讓別人看到你在其中設定的...
excel2019如何選取重複資料
假設人名在b列，那麼在c1輸入 if countif b b,b1 1,有重複 其它下拉公式，然後按c列來排序即可，這樣重複的人名就排序在一起，接著即可把不重複行刪除或是隱藏 以備後用 在人名後插入一列就好啦，完成後再把這列刪掉！告訴你乙個公式 我也是從網上找呢 非常好用 if iserror vl...