excel怎么利用vba獲取單元格交叉范圍的數(shù)據(jù)?
我要評論excel中使用vba獲取多個單元格區(qū)域的交叉范圍
1、首先我們打開一個工作樣表作為例子。
2、在工作中，我們常常會遇到選擇多個工作表區(qū)域，而兩個工作表區(qū)域的交叉范圍如果需要我們再去選取的話，需要非常的小心，不然選擇錯誤了又得重新來過。
3、實際上我們用vba可以方便的對這個區(qū)域作出選擇。我們使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：
Option Explicit
Sub quyu()
Dim rng1 As Range
Dim rng2 As Range
Dim rng As Range
Set rng1 = Sheets(1).Range("d6:g13")
Set rng2 = Sheets(1).Range("g11:k15")
Set rng = Application.Intersect(rng1, rng2)
'MsgBox rng.Address
rng.Formula = "=rand()"
End Sub
4、先定義一下三個變量為區(qū)域變量，然后將選擇的兩個區(qū)域分別賦值給rng1，rng2.這里使用intersect方法來求取兩個范圍的交叉區(qū)域。
5、這里使用msgbox來顯示rng變量，不能直接使用，必須使用rng對象的address方法才有返回值。
6、但是rng變量可以直接用來賦值，我們可以直接使用rng.Formula = "=rand()"這樣的方式來對交叉范圍進(jìn)行賦值。
相關(guān)推薦：
excel怎么使用vba的close關(guān)閉工作簿?
excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)?
相關(guān)文章
- excel怎么使用vba判斷最后一個單元格是否為空？excel中想要知道表格最后一個單元格有沒有數(shù)據(jù)，該怎么判斷呢？下面我們就來看看使用vba判斷的教程，需要的朋友可以參考下2016-10-18
- Excel最強(qiáng)大的功能就是能夠?qū)?shù)據(jù)進(jìn)行運(yùn)算，這依賴于excel的成百上千的內(nèi)部函數(shù)，更體現(xiàn)在excel的強(qiáng)大的VBA，這樣就讓越來越多的需要處理數(shù)據(jù)而又不會編程的人帶來方便，下2016-10-16
- VBA是Excel的底層根本。只有明白使用最底層的東西，使用起來才能隨心所欲，下面小編就為大家介紹excel如何通過vba代碼關(guān)閉工作薄方法，一起來看看吧2016-10-16
- 我有一個excel文檔,里面又有很多個工作表,每個工作表里都有很多批注,我現(xiàn)在想把每個工作表里滿足條件的批注刪掉或者替換成別的，怎么操作呢？下面小編就為大家介紹excel vb2016-10-14
- 今天小編為大家分享excel使用vba選取全部工作表的兩種方法，對于不知道怎么操作的朋友可以參考本文，希望這篇文章能對大家有所幫助2016-10-12
- vba單元格引用在學(xué)習(xí)VBA過程中很常用，下面小編就為大家介紹excel vba如何引用單元格值方法，不會的朋友可以參考本文，一起來看看吧2016-10-11
excel怎么使用vba的close關(guān)閉工作簿?
excel怎么使用vba的close關(guān)閉工作簿？excel中我們可以使用vba完成很多動作，包括關(guān)閉工作薄，今天我們就來看看close的使用方法，需要的朋友可以參考下2016-10-10- 這篇教程是向腳本之家的朋友分享excel用vba代碼隱藏行的方法，教程比較基礎(chǔ)，適合新手來學(xué)習(xí)，推薦到腳本之家，喜歡的朋友可以參考本文2016-10-08
- excel怎么使用vba快速重命名未打開的文件？excel想要對未打開的文件重命名，該怎么操作呢？我們可以使用vba來實現(xiàn)，下面我們就來看看詳細(xì)內(nèi)容，需要的朋友可以參考下2016-09-26
- 這篇教程是向腳本之家的朋友分享在excel表格中使用vba函數(shù)打開工作薄方法，方法很簡單的，有需要的朋友可以參考本文，來看看吧2016-09-23