1樓：匿名使用者
sub aa()
with sheet1
dim i, k as integer
i = 1
do while .cells(i, 1) <> ""
i = i + 1
loop
for k = 1 to i
if .cells(k, 1) = .cells(k + 1, 1) then
if .cells(k, 4) > .cells(k + 1, 4) then
.range("a" & k, "a" & k).entirerow.delete
else
.range("a" & k + 1, "a" & k + 1).entirerow.delete
end if
end if
next k
end with
end sub
沒除錯過.你自已調調看.
參考
如果你的資料在a列，a1是第一個，那麼在b1中輸入下面的公式，向下拉即可
=left(a1,len(a1)-1)
－－－－－－－－－－－－－－－－－－－－－－－－－
這樣都不行啊，恐怕沒有更簡單的了，
如果你想要高人給更容易和簡單的方法，你應該拿出點誠意來，比如
「懸賞分」 > 0
參考
用自動篩選功能就可以。請給具體資料我給你作一個。是同時篩選幾百個，還是一類一類篩選。如果是後者，一點問題都沒有，如果是前者無辦法。
參考
頁面設定是針對印表機來列印排版而論!
如果沒有安裝就讓系統預設一個就ok!
參考
這個不用函式，選中該列，資料--排序--升序
參考
正常的複製，在貼上的時候選擇編輯選單中的選擇性貼上，在彈出框中選擇數值，確定就可以了
參考
第一個問題原因是格式，excel格式佔用的空間比較大，而且有些人喜歡全選之後設定格式，導致內容以外的部分也都有格式存在，導致了文件變大。建議，點選表單最左上角的部分，將全部單元格選中（包括沒有內容的部分），然後選「編輯」----「清除」----「格式」，然後你再看你的文件大小，就會一下子小很多。第二個問題，這是一個普遍問題，尤其是當你同時操作兩個**的時候會經常出現，有的時候是因為你的另外一個**正在處於編輯狀態，而有的時候則是不明原因的出現，沒找到更為有效的方法，最小化再變大就ok了。
參考
可能你的這個文件在工具/選項/安全性中選取了「儲存時從檔案屬性中刪除個人資訊」的項，而文件又無法從嵌入物件中刪除個人資訊。
參考
如果要顯示sheet1表中的多列，輸入下面的公式後，就可以向右複製了。
=vlookup(a1,[源表]sheet1!$a:b,column(b:b),0)
參考
雙擊d1單元格的填充柄或往下拖
d1單元格內入=sum(a1:c1)
要求d列的和用
=sum(d1:dn)
參考
2樓：匿名使用者
下面是測試通過的！樓上的如果有找不到的資料會出錯，我原來也是那樣做的。
假設「00098879092」在a1，則a2的公式為：
=concatenate(if(iserror(find(0,a1)),"","0"),if(iserror(find(1,a1)),"","1"),if(iserror(find(2,a1)),"","2"),if(iserror(find(3,a1)),"","3"),if(iserror(find(4,a1)),"","4"),if(iserror(find(5,a1)),"","5"),if(iserror(find(6,a1)),"","6"),if(iserror(find(7,a1)),"","7"),if(iserror(find(8,a1)),"","8"),if(iserror(find(9,a1)),"","9"))
多行的話，向下拉。
3樓：老吳育兒談
用find之類的查詢字串函式，例如
=if(find("0",a1)>0,1,"")&if(find("1",a1)>0,1,"")&...if(find("9",a1)>0,1,"")
請教excel函式使用問題，請教Excel函式使用問題
用vba迴圈處理吧，一行行分析。sub conv dim arr irow 1 for i 1 to 4 四行 arr split cells i,2 將b列單元格值分割為陣列 for j 0 to ubound arr 遍歷陣列每個元素 cells irow,3 cells i,1 c列取a列的值...
關於excel的使用，如何用excel解包含兩個未知數的方程，讓其顯示x從1至100的y的解
如圖 a2 0 b2 5 c2 10 a2 20 b2 100 a3 if c2 0,a2,a2 0.1 b3 if c2 0,b2,b2 0.1 c2下拉到c3 選定a3 c3 下拉我的思路來自數控中的 逐點比較法 我判斷你是要解個多元方程組吧？需要用規劃求解 工具 規劃求解 輸入時候只需要按方程...
求教Excel使用技巧，求教excel相關技巧
名稱，型別，公司分別在abc三列，e3列是要輸入的內容，放置一個搜尋按鈕，然後編寫vba private sub commandbutton1 click dim rownum as long dim i as long rownum 65535 for i 2 to rownum if sheet...