1樓：匿名使用者
資料多了 讀到陣列裡操作會快很多。
行數變化無所謂 你這個是自動檢測行數的。
你只需要修改列就可以了。
sheets("integ").c65536].end(3).offset(1, 0) =sheets("org").cells(j, 3)
sheets("integ").b65536].end(3).offset(1, 0) =sheets("org").cells(j, 2)
sheets("integ").a65536].end(3).offset(1, 0) =sheets("org").cells(j, 1)
這裡你往下繼續加就可以了一直到。
sheets("integ").g65536].end(3).offset(1, 0) =sheets("org").cells(j, 7)
然後在把第一個sub裡的那個三行的中括號裡的字母往後順延即可。
2樓：小狂中
提取公因式，如 sheet1=sheets("integ")，這個可以放到迴圈外。
幫忙看看這個excel的功能如何用vba來實現！
3樓：陽光上的橋
下面用盡量簡單的**實現，自定義一個函式來統計有效備註數量，**寫到模組裡面，如下圖：
然後工作表就可以使用這個函式了，如下圖：
當然這個公式是可以下拉的，而且引數可以隨意寫。
最後，程式**文字為：
option explicit
function 有效備註數量(byval s$) as longdim n&, t, i&
for each t in split(replace(s, "
t = replace(t, "
i = instr(t, "
if i = 0 then i = len(t)if i > 6 then n = n + 1next t
有效備註數量 = n
end function
excel vba的問題？ 160
4樓：陽光上的橋
程式**：?
測試資料：?
執行**後的資料：
測試說明程式符合要求，如果原資料分佈在不同區域，只需要修改e1:e3處的**為實際區域即可。程式**的文字如下：
option explicit
sub 巨集1()
dim r as range, a, t, s, i
for each r in range("e1:e3").cells
a = split(r, "
s = for each t in split(a(0),for i = 1 to 3
if i < 3 or t < 6" then
s = s & i & t &
end if
next i
next t
s = left(s, len(s) -1) &a(1)
r = snext r
end sub
5樓：匿名使用者
已知會不會沒序或者差超過10
請求大神幫忙寫個excel vba**，謝謝！ 50
6樓：自然是種習慣
法如下：一、開發工具。
二、雙擊sheet
三、建立事件。
選擇change事件。
四、編寫**。
private sub worksheet_change(byval target as range)
dim frg as range
if = 2 then
set frg = b:b").find(target)
if not frg is nothing then
b" &b" &
c" &c" &
d" &d" &
e" &e" &
f" &f" &
g" &g" &
h" &h" &
end if
end if
end sub
五、在分類1中輸入金，後面資料自動出來。
b.excel-vba(工程-模組-過程-函式)
7樓：天然槑
掌握如何錄製巨集，併成功執行並能重複使用之後，為進一步深入vb平臺及vba語言，即將開展對excel的工程、模組、過程及函式的學習與研究。
vba工程是一套excel物件，模組，窗體和引用。包括下列內容：
1、工作表；2、圖表；3、當前工作簿（工程儲存的工作簿）；4、模組；
5、類模組（特殊的模組讓你可以建立自定義物件）；6、窗體；7、引用到其他工程。
工程瀏覽器（alt+f11再雙擊開啟），如下：
工程命名：選擇一個vbaproject > 雙擊 > 修改屬性視窗的名稱屬性 > 輸入「新名稱」，回車。
excel巨集錄製建立的一系列指令是和實際進行的操作完全等同的。
錄製的一系列指令被放在工作簿裡的「模組」資料夾中。
思考：什麼情況下會出現不同模組，以及模組之間的聯絡是什麼？
所有錄製的指令都包括在「過程」裡，過程的每一行都是一個「指令」。
子程式過程(子過程)執行任務但不返回任何值，以關鍵字sub開頭和end sub結束。
函式過程執行具體任務並返回值，以關鍵字function 開頭和end function結束。
屬性過程使用屬性過程可設定和獲取物件屬性的值，或者設定對另一個物件的引用。
思考：一個模組允許幾個子過程，一個過程是否代表一個批量操作？
就會顯示兩個可執行的巨集名
vba提供若干種內建函式（點選f2檢視），儘量使用內建函式，也可以建立自定義函式，關鍵字function開頭和end function結束。可對某個物件執行一系列。
學習成果在於檢驗，去試驗吧~
1.新建開發工具中按鈕。
4.點選顯示結果。
以後將逐步運用到工作中，點選按鈕後執行一系列操作~奧裡給！
excel vba **的問題？
8樓：匿名使用者
溝通後想怎麼方便就怎麼方便。
excel vba的**問題？
9樓：匿名使用者
end(xx).row這個函式它主要是查詢最後一個非空單元格。
end後面括號內xx有4種引數代表方向：xlup,xldown,xltoleft,xltoright
所以它不能用來實現非空行數。
end(xldown).row效果如下，你會看到它的結果是6,xldown是從1往下找，遇到的第一個空單元格就返回。
xldown效果如下，它是a列最後一行開始往上找，遇到第一個非空單元格返回，此刻即使a6單元格為空，照樣返回11：
如果要實現統計非空個數，可以呼叫內建函式：
a= (a1:a5000"))
excel vba 問題？
10樓：矽谷少年
我的專案中我做過，開價50元。
求懂俄語的朋友幫忙翻譯一下，求懂俄文的朋友翻譯一下
你好，很高興為你解答，上面是保修卡 下面是石英錶資訊。希望能幫到你，如果還有不明白的地方，歡迎追問。求懂俄語的朋友幫忙翻譯一下 第一張是保修單據條目從上到下依次是 賣家的姓名和父稱 編號購買日期 賣家簽名 然後右邊是商店的章 第二張是商品標籤 最上面應該是產品公司名稱和地址 看不太清楚 然後下面是貨...
清水寺求的籤，求懂日語的朋友幫忙翻譯下謝謝
第九十七凶 霧罩重樓屋 就像高高房子也隱於霧中看不見般地，煩惱的事不斷，每天昏暗 陰天吧。佳人水上行 就像柔弱的女性獨自一人乘船在水上旅行般地，現在正面臨危險的狀態。白雲歸去路 白雲未定，去的方向也不知道。每天不知道會發生什麼事吧。不見月波澄 就像澄清的水應該映著月亮的倒影也因為波浪凶猛看不見般地，...
懂風水的朋友幫忙看看
1.這件房子的大門不能這樣開，一般都會有兩個門，一個防盜門一個家門，防盜門要向外開，內門要向內開，且 要注意兩個門的門栓要在同一邊。這間房子的們要 開起來 人是面向客廳的方向，現在是開起來看往房間，方向錯誤，如果只有一個門，也是一樣，向外開，入門看向客廳。2.嚴重的問題在廚房，爐灶的位置，前不能有窗...