excel中如何用vba處理表1中如果含有表2中的某個關鍵詞則記錄下來

2022-07-05 18:22:09 字數 2163 閱讀 9457

1樓:匿名使用者

假設表是下面這樣的,簡單的示例,然後稍微改改就可以了

示例表1的樣子,名字就是sheet1

示例表2的樣子,名字sheet2

option explicit

sub comb()

dim i as long, j as long, res as integer

dim ln1 as long, ln2 as long

ln1 = sheet1.[a60000].end(xlup).row

ln2 = sheet2.[a60000].end(xlup).row

for i = 2 to ln2

res = 0

for j = 2 to ln1

if sheet1.range("a" & j).value = sheet2.range("a" & i).value then res = res + 1

next j

sheet2.range("b" & i).value = res

next i

end sub

2樓:姓王的

你說的記錄下來是什麼意思?怎樣記錄?請說詳細上些

使用vba, 如何將一個excel文件中某個區域的內容自動複製到另一個excel文件中指定的某個區域?

3樓:太極健

這就一句話的事呀,兩個工作簿都已經開啟的情況下sub mycopy()

workbooks("工作簿1.xls").sheet1.

range("a1:c50").copy thisworkbook.

sheet2.range("a1")

end sub

意思就是把工作簿1中工作表sheet1的a1:c50區域複製到當前工作簿sheet2工作表的a1區域(這個區域與前面的區域是一樣的,只需要寫左上角的單元格即可)

4樓:匿名使用者

public sub copy()

range("a1:c10").select '複製的區域,自行修改

selection.copy '複製workbooks(2).activate '啟用第二個book

range("a1").select '區域,自行修改activesheet.paste '貼上end sub

vba excel中如何使用巨集將一個工作表中符合條件的某部分資料複製放在另一個工作表?

5樓:

以下**,資料在sheet1的a到d列,表頭在第二行

取前三個複製到h列

set conn = createobject("adodb.connection")

conn.open "provider=microsoft.jet.

oledb.4.0;extended properties=excel 8.

0;data source=" & thisworkbook.fullname

sql = "select top 3 * from [sheet1$a2:d] order by 銷量 desc"

[h3].copyfromrecordset conn.execute(sql)

conn.close: set conn = nothing

[a2:d2].copy [h2]

怎樣用vba讀取一個excel**中的某一列,然後提取出來放到另一個sheet的一行裡如何寫**求詳細,謝謝

6樓:朱仕平

sub test()

sheets("sheet1").range("a:a").copy sheets("sheet2").range("b1")

end sub

7樓:匿名使用者

sheets("sheet1").range("a1:a30").copy

sheets("sheet2").select[a5].select

selection.pastespecial paste:=xlpasteall, operation:=xlnone, skipblanks:= _

false, transpose:=true

asp是如何處理提交了的表單asp處理表單的原理

會提交到伺服器上 page load是你載入頁面時執行的.但你單擊submit時,會有submit onclick事件來處理 看提的問題,你貌似也是搞程式設計的 但是web程式設計和別的程式設計有所不同的 具體你可以看看相關的教程 request是一個全域性物件,看看它的方法就知道了 你安submi...

Excel求助如何用VBA新增下一行

自己錄一段,改改就行了 首先在類別列來查詢 五金 如果源 找到,然後從從此行開bai始向下迴圈 du,可以用for each 在找到的單元zhi格到此dao列的最後一個單元格 在迴圈體中用if進行測試b列單元格的內容,如果是 五金 則繼續向一行,如果不是,則表示已經到末尾了,現在可以在此插入下行.將...

如何用excel製作學生座次表,班級的座位表用Excel製作應該怎麼做?

用excel製作學生座次表步驟如下 1 老師站在講臺上,從講臺的角度往下看,學生在臺下的座位次序與老師的視覺是相反的。2 也就是說,從學生的角度來數的話,是從教室前面第一位學生數起,數完全班學生。3 然而,從老師的角度來數的話,是從教室後面最後一位學生數起,數完全班學生。4 通過比較我們發現,應該從...