vba取旁邊一列的數據-tft每日頭條

vba取旁邊一列的數據

科技更新时间:2025-01-13 06:08:51

本例介紹用字典取兩列數據的相同項，如圖，A列為2018年500強名單，B列為2019年名單，要求取得這兩年連續上榜名單，也就是取兩列的相同項。

vba取旁邊一列的數據（取兩列數據的相同值）1

代碼：

Sub Ck()

Set d = CreateObject("Scripting.Dictionary")

arr1 = Range([A2], [A65536].End(xlUp))

arr2 = Range([B2], [B65536].End(xlUp))

For i = 1 To UBound(arr1)

d(arr1(i, 1)) = 0

For j = 1 To UBound(arr2)

If d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1

For Each d1 In d.keys

If d(d1) = 0 Then d.Remove (d1)

Range("C2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)

End Sub

結果如圖：

vba取旁邊一列的數據（取兩列數據的相同值）2

代碼解析：

arr1 = Range([A2], [A65536].End(xlUp)) ’建立數組，将A列相應的值放入數組放入arr1

arr2 = Range([B2], [B65536].End(xlUp)) ’建立數組，将B列相應的值放入數組放入arr2

For i = 1 To UBound(arr1)

d(arr1(i, 1)) = 0 ’将arr1的值寫入字典的key，其item值等于0

For j = 1 To UBound(arr2)

If d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1 ’如有B列的數值等于字典的key，那麼，将其對應key的item賦值為1

For Each d1 In d.keys

If d(d1) = 0 Then d.Remove (d1) ‘删除字典中item為0的值，剩餘的為item為1的值，也就是獲得了兩列的重複項

Range("C2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)

‘轉置，在C列列出重複值。

vba取旁邊一列的數據（取兩列數據的相同值）3

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部

网友关注

科技數碼攝像機動力保養
數碼攝像機使用的電池一般是锂電池、鎳镉電池和鎳氫電池三種。使用鎳镉和鎳氫電池要避免電池因記憶效應而縮短使用壽命，所謂記憶效應是指導當電池電量尚未完全使用完前便放在充電器上充電的話，則電池的容量會相應減少，同時電池的使用壽命也會受到影響。所以數碼攝影機使用這類電池時，最好是等電池電量完全耗盡後，或者攝... 2024-01-06
科技 VCD機常見故障的處理
1、開機後不能正常播放①、碟片髒。可用VCD清潔劑或用軟棉布沾純淨蒸餾水擦拭清洗碟片，幹淨後再試用。②、機内碟片重疊、卡住或滑出槽外。應打開機殼擺正碟片或取出多餘碟片。③、環境溫度低而失常，可以邊加熱邊試機，待正常時立即停止加熱。④、激光頭上有異物。可用VCD機專用清潔劑清潔，或打開機殼，用軟棉布沾... 2024-01-06
科技挂燙機好用嗎
挂燙機是很多人比較關心的問題，主要是挂式的熨鬥也就是挂着晾衣服和布料的機器，主要是内部産生的一些熱水蒸汽不斷的接觸，達到軟化成軟化衣服和布料纖維組織的目的，是衣服和布料運行的起來比較簡單，它與平闆的熨鬥相比的更加的方便快捷，而且全程有效地保護布料。很多人對于它的使用方面很擔心。挂燙機好用嗎它主要是用... 2024-01-06
科技浴霸和地暖哪個好
浴霸的使用功率要遠遠大于地暖衛生間溫暖地面系統的功率，耗電量大不節能；浴霸使用時舒适度極差有烘烤的感覺，在洗浴中浴霸隻在它的垂直下方光照的部分是能感覺到熱量，離開垂直下方熱的感覺明顯降低，在立式淋浴中隻有上半身能感覺到熱量但下半身依然很冷；浴霸的高強度光照對人體皮膚及眼睛有害，洗浴時人體毛孔張開的，... 2024-01-06
科技如何清潔電視機
電視機久不清洗的危害：電視機的内部在使用一段時間後，會積滿厚厚的一層塵埃，這些髒物加速了機器的老化，增加輻射，出現雪花點，嚴重的可造成短路、燒毀元器件，甚至能引起顯像管爆炸。所以電視機的内部要每年清洗一次。【1】清洗電視機内部清洗電視機内部時，先斷電源半小時，再打開電視機的後蓋，用電吹風将積塵吹淨，... 2024-01-06
科技燃氣熱水器不打火
現在的家庭裡，隻要是安裝天然氣的，家裡的熱水器都不會使用耗電的熱水器，畢竟電費要比燃氣費貴出很多。不過在使用燃氣熱水器的時候，很容易出現一種問題，比較讓人惱火，就是燃氣熱水器不打火的情況。為了幫你解決這個問題，在這裡就為您介紹一下燃氣熱水器不打火的可能性。燃氣熱水器不打火是非常常見的一種問題，而導緻... 2024-01-06
科技櫃式空調如何清理
在清洗之前我們要關閉空調電源，拔去插頭，打開窗戶，保持室内空氣流通。然後取下過濾網，露出散熱片，使用專業的空調消毒劑，充分搖勻，在離散熱片約5厘米處，對準散熱片按上下順序徹底噴洗，噴洗結束後等候15分鐘左右，然後裝好過濾網，蓋上外殼，再運轉空調制冷程序15-30分鐘就可以了。 2024-01-06
科技電子琴使用注意事項
1、不要将電子琴直接暴露在陽光下，或在熱源附近。否則溫度太高會引起電子琴氣和機械部分的損壞。2、不要将電子琴放在潮濕的地方。3、要避劇烈震動。也不要重物壓在琴上，攜帶和搬運時候，應用柔軟材料保護鍵盤和開關。4、應避免液體，灰塵，顆粒等侵入琴内，琴鍵之間要防止細小的雜物。如發針，縫衣服針，等進入鍵盤縫... 2024-01-06
科技增強洗衣機洗滌效果的竅門
以往大家在使用洗衣機洗衣服，總喜歡多放些洗衣粉，以為泡沫越多，洗滌效果越好。其實，這種方法是錯誤的，其實洗滌衣物時也是有許多方法的，如有不清楚的朋友可以一起了解一下。【1】應使洗衣粉全部溶解如水溫過低，洗衣機就難骓溶解洗衣粉，可先用30℃左右的少量溫水使之全部溶解。如衣物及髒，可用40℃&mdash... 2024-01-06
科技加濕器用什麼水
很多地方幹燥的家庭，都會準備有加濕器，加濕器的作用就是可以增大空氣的濕度，這樣就不會讓人感覺那麼難受了。有些人不懂得加濕器用什麼水會比較好，對于加水在加濕器裡面，也是有講究的。如果你不知道的話，可以看看這篇文章。加濕器首選加入的水是蒸餾水。加濕器的水分是散發在空氣中的，也是可以解除到人們的皮膚和吸入... 2024-01-06
科技等離子電視如何保養
散熱大功率産生的高溫可以看作是等離子電視的頭号大敵，所以在使用中要特别注意等離子電視的散熱，并且不要長時間的暴露在射燈和太陽下。屏幕灼傷因為長時間播放固定靜止畫面而使屏幕局部受到灼傷産生畫面殘影，這是等離子電視本身特性所決定的。電壓有條件的情況下應為等離子電視提供獨立的供電線路，或者再增加一個穩定電... 2024-01-06
科技幹毛巾可讓冰箱清潔
冰箱用久了會弄髒，不及時擦拭就易滋生病菌。因許多媽媽又上班又帶孩子，一忙起來很難對冰箱進行及時清理。方法是在冰箱的架子上分别鋪上毛巾，當毛巾沾上污垢之後就立即取出來洗滌曬幹。曬幹以後再鋪上，這樣就能保持冰箱内清潔且省事。 2024-01-06
科技電熱水龍頭
在寒冷的冬季家裡的熱水一定要足夠，不過如果是想要開開水龍頭都流出來熱水的話，這恐怕就要使用電熱水龍頭了。電熱水龍頭有着熱水器和太陽能所不能比的優勢，雖然它們也可以産生熱水，但是水管中的水卻依然還是涼的，因此需要您把水管中的水流完之後才可以有熱水使用。電熱水龍頭可以讓您打開水龍頭就有熱水使用。所謂電熱... 2024-01-06
科技加濕器原理
加濕器在一些幹燥的地方比較多見，因為幹燥的空氣對人體的皮膚是有一定的傷害，如果置身在幹燥的空氣當中，自己感覺也是會很難受的。使用加濕器的話，大家應該要先了解加濕器的原理，知道加濕器是怎樣工作的，這樣才可以更好的去了解加濕器的用法，對自己有一定的幫助。使用加濕器要注意的是要控制好空氣中的濕度，如果濕度... 2024-01-06
科技打印機的具體操作
第一步：将打印機連接至主機，打開打印機電源，通過主機的“控制面闆”進入到“打印機和傳真”文件夾，在空白處單擊鼠标右鍵，選擇“添加打印機”命令，打開添加打印機向導窗口。選擇“連接到此計算機的本地打印機”，并... 2024-01-06
科技冰箱竟會引起細菌交叉感染怎樣的冰箱能...
很多人以為，冰箱猶如保險箱，冰箱的低溫可以很好抑制細菌生長，食物存放在裡面很安全。但是事實往往與我們的認知有很大的出入。根據衛生部門的抽樣調查，細菌的交叉感染非常嚴重，尤其是存放生肉的下層，合格率幾乎為零。大部分冰箱都有大腸杆菌污染，生肉與熟食放在一個空氣流通的空間存放，哪怕分層存放，也會交叉感染，... 2024-01-06
科技滾筒洗衣機的選購技巧
滾筒洗衣機的選購技巧滾筒洗衣機的特點滾筒的最大特點就是省水、費時間，如果你想具體了解工作原理和适用範圍，可以先看下之前的“滾筒or波輪的選擇”。另外要說明的一點，滾筒和波輪的洗淨比所用的對照組是不同的，所以不能通過洗淨比來衡量滾筒和波輪之間的洗淨能力。那麼多的電機都是什麼意思... 2024-01-06
科技如何選購電風扇
近來電風扇走俏，但質監部門提醒說，在電扇重新受到青睐時，當心把不合格品拎回家。究竟該如何選購電風扇？【1】看電風扇标志上面應有廠名、廠址、型号、規格、批号、生産日期、出廠檢驗合格證，有檢驗員印章及檢驗日期。【2】看電風扇說明書裡面應有額定電壓、額定電流、額定頻率、額定輸入功率等指标，還應包括安裝、清... 2024-01-06
科技燃氣熱水器安裝
一般的家用熱水器有用電和用燃氣兩種不同，如果是家裡安裝有天然氣的話，一般都睡使用燃氣熱水器，因為它燒水速度比較快，而且天然氣的價格也比電的價格要低很多，這些因素都讓燃氣熱水器成為了家裡的主流熱水器。不過為了保證燃氣熱水器在用的時候更少的出現問題，就一定要注意燃氣熱水器安裝。燃氣熱水器因為使用的是天然... 2024-01-06
科技如何清洗加濕器
冬季和夏季人們的生活根本就離不開空調，而空調開的時間如果是過長的話，最容易導緻的一種情況就是室内空氣過于幹燥，這就需要使用加濕器來對室内空氣進行加濕。不過在如果是您想要您的加濕器使用壽命長的話，在使用的時候不但要注意保養，更需要注意它的清潔，那麼，如何清洗加濕器呢？加濕器如果是清潔不及時，或者是不經... 2024-01-06
科技窗式空調器有哪些性能特點
窗式空調器是一種可安裝在窗上或牆中的空調器。特點是體積小，重量輕，安裝使用方便；使用時隻需接通電源，即能自動地調節房間内溫度，并可随意調節房間内氣流方向，給人感覺舒适。窗式空調器的制冷系統采用全封閉式壓縮機，結構簡單，氣密性好，并設有調溫裝置及進風、排風裝置，可以自動調節溫度及排出室内污濁空氣，補進... 2024-01-06
科技電子琴使用保養
電子琴既是樂器，又是結構複雜的精密電器，一台高級電子琴所有的元件數目比彩色電視機還要多好幾倍。因此，除了準确地掌握它們的機能外，還要注意平時的合理保養，隻有這樣，才能使你的電子琴常葆青春，彈奏出多彩多姿的音響來。1、使用電子琴前，應認真核對電子琴的使用電壓及頻率，是否與說明書上載明的電源電壓及頻率相... 2024-01-06
科技微波爐骨肉相連
骨肉相連在制作的時候采用的是雞腿肉和雞脆骨，一塊雞肉一塊脆骨的串起來，經過炸之後一口下去咯嘣咯嘣的響，也非常的具有嚼頭，真的是非常好吃。不過傳統制作骨肉相連的方法是在油鍋裡面炸，屬于一種油炸食品，因此很多朋友都擔心吃的過多會影響身體的健康，這也無可厚非。不過現在您想吃骨肉相連可并不一樣非要吃油炸的了... 2024-01-06
科技空調箱風機帶水問題
現象：某建築物集中空調用淋水室處理機。運行時在吊頂上和風口處均滴水。原因：空調機有淋水室，現場組合，雖有擋水闆但因風速大(3.5m/s)，在風機吸入段仍有水落下。且風機吸入口很低，能将集水吸入，并打入送風管道在水平風管中積水。沿法蘭接口漏出，通過吊頂滴下，造成破壞吊頂事故。對策：1、将擋水闆設在集水... 2024-01-06
科技中央空調機分為幾類
中央空調系統由冷熱源系統和空氣調節系統組成。制冷系統為空氣調節系統提供所需冷量，用以抵消室内環境的冷負荷；制熱系統為空氣調節系統提供用以抵消室内環境熱負荷的熱量。制冷系統是中央空調系統至關重要的部分，其采用種類、運行方式、結構形式等直接影響了中央空調系統在運行中的經濟性、高效性、合理性。按構造不同，... 2024-01-06
科技電視機冒煙起火怎麼辦
1、迅速拔下電視機電源插頭，然後用棉被等不透空氣的物體将電視機嚴嚴實實地包裹起來，這樣電視機内的火焰就會因沒有空氣而熄滅；2、若電視機外殼和内部都已燃起火焰，就可用水澆滅；3、用幹粉、1211、二氧化碳等滅火器撲救；4、撲救電視機火災時，人體應避開熒光屏的正面，站在電視機後側比較安全。滅火劑不應直接... 2024-01-06
科技打印機的安裝
打印機的安裝一般分為兩個部分，一個是打印機跟電腦的連接，另一個就是在操作系統裡面安裝打印機的驅動程序。如果是安裝USB接口的打印機，安裝時在不關閉電腦主機和打印機的情況下，直接把打印機的USB連線一頭接打印機，另一頭連接到電腦的USB接口就可以了。按照上面的步驟把打印機跟電腦連接好之後，先打開打印機... 2024-01-06
科技燈暖型浴霸和送風型浴霸比較
熱傳導有三種方式：傳遞、對流、輻射。對流是由冷、熱空氣的溫差使整個空間中的空氣産生流動，進而使這空間的溫度升高。送風型的浴霸就是采用這一原理。落後輻射是以光波為載體，按線性方向送出熱量。燈炮型浴霸就是采用這一原理。送風型浴霸的升溫時間較長需提前開啟，這是缺點，但降溫時間也長（如想節能，可以提前關閉）... 2024-01-06
科技縫紉機跳線
縫紉機跳線也許家居生活上我們都知道，可是我們在縫衣服飛時候，出現了縫紉機跳線該怎麼辦呢，很多女性都反應，縫紉機是屬于一種比較老試的縫紉機，一直以來，都是使用不幾天就搬出來磨合了一下還算可以，下面我們就去看看有關的介紹吧。縫紉機跳線造成的原因，其實就是因為穿線方法其實是很不正确的，按照“穿線圖”的方式... 2024-01-06
科技蘇打粉清洗洗衣機
以前清潔洗衣機都是買專門的洗衣機槽的洗潔劑，但前段時間看到電視節目中介紹用蘇打粉來清潔洗衣機，現在我們就來體驗吧。蘇打粉清洗洗衣機，主要分兩個步驟：第一：先将二勺蘇打粉放入洗衣機裝洗衣粉的盒中，按照正常的程序洗衣服，洗衣機工作十分鐘後就将電源切斷，讓蘇打粉液浸泡半小時，在連接電源，讓洗滌程序繼續，直... 2024-01-06

tft每日頭條

> 科技

> vba取旁邊一列的數據

vba取旁邊一列的數據

相关科技资讯推荐

热门科技资讯推荐

网友关注