1樓：太極健
sub 按鈕1_click()
dim r&
static i as long '設定一個靜態變數，用於計算點選按鈕次數
i = i + 1
if i + 8 > 255 then exit sub '工作表最大列為255列，當超過255時，不執行下面**
r = range("a65536").end(xlup).rowrange("a1:a" & r).copy cells(1, i + 8)
end sub
2樓：匿名使用者
sub procopy()
if range("iv1").end(xltoleft).column < 8 then
for a = 1 to range("a65536").end(xlup).row
cells(a, 9) = cells(a, 1)
next
else
b = range("iv1").end(xltoleft).column + 1
for a = 1 to range("a65536").end(xlup).row
cells(a, b) = cells(a, 1)
next
end if
end sub
excel用vba將a列數值存入一個陣列中
3樓：慶年工坊
sub a()
dim arr
n = [a65536].end(3).rowarr = [a1].resize(n)
end sub
4樓：匿名使用者
dim arr
arr=range("a1:a10")
5樓：匿名使用者
sub aa()
dim a()
a = [a1:a10].value
msgbox a(1, 1)
end sub
excel vba 怎麼將工作表a中的 多列資料 複製到工作表b中，並使複製到b中的資料顯示出該資料的引用位置
6樓：權群
sheets(1).activate
sheets(1).range("a:c").copysheets(2).activate
sheets(2).cells(1,1).selectsheets(2).paste
如果上面的不行就錄製一下巨集、然後修改**。。。
7樓：匿名使用者
給你最簡單的**：
假設複製的列是：sheet1表a列
貼上的地方時：sheet2表b列
worksheets("sheet1").columns("a:a").copy
worksheets("sheet2").selectworksheets("sheet2").range("b1").select
activesheet.paste
8樓：匿名使用者
你要複製的 內容 與方式 還有 貼上的位置 不夠清楚 你要這些引用位置 顯示在什麼地方？
這些都沒有說清楚啊……
你可以 錄製一段 你按著你的想法 所做的一系列操作 然後看 那些** ……就是你要的vba **……
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...
vba如何將陣列帶入自定義的函式
窗體放一個label和一個command，如下 private sub command1 click dim i,a 19 max,min,sum,a1,a2,a3,a4,a5 as integer label1.caption randomize label1.caption 20名學生成績 vb...
Excel求助如何用VBA新增下一行
自己錄一段，改改就行了 首先在類別列來查詢 五金 如果源 找到,然後從從此行開bai始向下迴圈 du,可以用for each 在找到的單元zhi格到此dao列的最後一個單元格 在迴圈體中用if進行測試b列單元格的內容,如果是 五金 則繼續向一行,如果不是,則表示已經到末尾了,現在可以在此插入下行.將...