1樓：匿名使用者
for i = 1 to 65536
if cells(i, 3) = "" thenset s = range(cells(i, 1), cells(i, 4))
else
set s = union(s, range(cells(i, 1), cells(i, 4)))
核心部分的**大致是如此的
邏輯思路就是：先迴圈，迴圈的同時進行判斷，將判斷為非空的單元格聯合起來，最後選中這批單元格
2樓：慶年工坊
sub s()
set rg = [a39:j1039]
i = 1
do while rg.item(i) = ""
i = i + 1
if i = rg.count then exit doloop
if rg.item(i) <> "" thenset rg1 = rg.item(i)
for j = i to rg.countif rg.item(j) <> "" thenset rg1 = union(rg1, rg.item(j))end if
next
rg1.select
end if
end sub
3樓：閒拉呱
基礎操作就可完成的：
選中區域/按f5/定位/定位條件/常量/確定
幹嗎非要vba?
excel中選擇當前列的第一個非空單元格，用vba語句怎麼寫？
4樓：匿名使用者
看你題意，你是要選擇第一個空單元格吧
range("a1").end(xldown).offset(1, 0).select
range("a6513").end(xlup).offset(1, 0).select
如果是非空單元格去掉.offset(1,0)就可以了，列也是類似的
range("a1").end(xltoright).offset(0, 1).select
range("aa1").end(xltoleft).offset(0, 1).select
5樓：匿名使用者
範圍內一直有資料的話比較容易，**如下
range("a1").end(xldown).offset(1, 0).select
range("a1").end(xltoright).offset(0, 1).select
excel vba 如何判斷篩選好的某一區域是否為空（即均為空單元格）?
6樓：香格里拉稻草人
sub 篩選後判斷()
dim rng as range
dim cng as range
dim arr, r%
r = activesheet.[a65536].end(3).row
activesheet.range(cells(1, 1), cells(r, 4)).autofilter field:=4, criteria1:="="
for each cng in range("a2", [a65536].end(3)).specialcells(xlcelltypevisible)
set rng = cng
arr = rng.entirerow
if arr(1, 5) = "" then
msgbox rng.address
end if
next
set rng = nothing
end sub
假設第4列是自動篩選列 ,第5列是篩選後需要判斷是否為空的列, 第1行為標題行
7樓：匿名使用者
這個不用篩選吧，
你可以直接用vba 判斷啊
dim i as integer
for i=2 to r
if activesheet.cells(i,4)="" and activesheet.cells(i,5)="" then
debug.print i '列印第4 列，5列都為空的單元格所在行end if
next
8樓：冰爽哈啤酒
將整列值連線成一個字串，再判斷這個字串是否為空，或判斷它的長度是否為0，例如判斷b列是否為空：
dim mystr$
mystr=join(range("b:b").value,"") '將b列的每個值連線成一個字串
if mystr="" then msgbox "b列為空" '這個判斷也可以用len(mystr)=0
在excel如何使用vba判斷非空單元格？
9樓：匿名使用者
if len(sheet1.cells(i,j)) then
一般 用上面這句。
10樓：平陽虎
sub ww()
dim i, j%
for i = 1 to 3
for j = 1 to 4
if sheet1.cells(i, j) <> "" thensheet2.cells(i, j) = sheet1.cells(i, j)
end if
next
next
end sub
寫出來後才發現已經有了答案！！！
11樓：匿名使用者
你確認 你這段** 有問題？ 我怎麼沒看出來啊？
你的工作不中 確實 有 sheet1 、sheet2 這樣的工作表？
整個** 就這些？沒有其他**？遇到問題 點除錯 停留在什麼地方？
看看下面的** 在你那裡執行如何？
sub test()
for i = 1 to 3
for j = 1 to 4
if sheet1.cells(i, j) <> "" thensheet2.cells(i, j) = sheet1.cells(i, j)
end if
next j
next i
end sub
誰有小學範圍內所有的關聯詞
關聯詞把兩個或兩個以上在意義上有密切聯絡的句子組合在一起，叫複句，也叫關聯句。複句通常用一些關聯詞語來連線。它有如下特點 第一，作為聯接分句 標明關係的詞語，關聯詞語總是標明抽象的關係，可以作為某類複句的特定的形式標誌。第二，關聯詞語性質複雜。第三，說話時很容易發現必須帶有的一到二個詞語，雖然意思不...
投資理財的年化收益在多少範圍內為合理範圍
8 到15 之間還是bai 可以的,選擇靠du譜的價效比高zhi的平臺,通過 dao活動,或可以得到更版多。權可以使本金保值增值,超越cpi和通脹,比較符合 的就屬p2p理財平臺了。可以根據知名風投來選平臺,目前最便捷的方式了。沒有最好,只有更好,作一個資產配置和分散投資,更多策略可參見 財富日記專...
ph值多少範圍內的水可以澆樹
生活飲用水衛生標準 ph值為6.5 8.0，在這個區間的數值的水都可以用來澆花 澆樹，園林綠化的 一般是ph值 7 水的酸鹼度，它主要通過改變栽培基質的ph值對作物的生長產生影響。基質的ph值對營養元素的有效利用和作物根系的正常活動至關重要。由於栽培過程中會不斷澆水，若灌溉水的ph值與基質的ph值差...