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

vba取旁邊一列的數據

科技更新时间:2024-07-23 05:23:12

本例介紹用字典取兩列數據的相同項，如圖，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每日頭條，我们将持续为您更新最新资讯!

查看全部

网友关注

科技純電動車需要保養嗎
1、純電動車需要保養。2、為了确保車輛保持最佳的狀态，純電動汽車需要像傳統汽車那樣定期養護，比如每年或2萬公裡更換變速箱油和空調濾芯。3、每兩年或4萬公裡更換防凍液和刹車油；每次保養檢查底盤、燈光、輪胎等常規部位。 2023-07-07
科技手機屏幕如何縮小尺寸
演示機型：小米11系統版本：miui12.0.7打開手機中的“設置”應用圖标。在“設置”頁面中找到更多設置。在“更多設置”頁面中找到單手模式，點擊進入該選項。在“單手模式”頁面中選中啟用單手模式，即可打開手機的單手模式。在頁面下方選中單手模式中屏幕的尺寸，這裡可供選擇的有4.5英寸、4.0英寸、3.5英 2023-07-07
科技蘋果套袋前三遍藥怎麼打
1、套袋前第一遍藥。防治赤星病以及白粉病最有效的藥物是腈菌唑。防治黴心病防爛果用含有乙黴威的藥物，或者多菌靈與乙黴威複配的效果特别好。防治螨類。用阿維菌素與螺螨酯複配的藥物。2、套袋前第二遍藥殺菌用吡唑醚菌酯與二氰蒽醌複配的藥物，你可以加上點苯醚甲環唑，可以加上點多菌靈這幾種和它混配到一起。對于蚜蟲，你可以額外的加上吡蟲啉或者啶蟲脒。3、套袋前第三遍藥。噴施和第二遍一樣的殺菌劑。現在重點是防治蚜蟲 2023-07-07
科技 iphone充電線突然不支持此配件怎...
1、出現的機率最大就是蘋果的數據線不是原裝或者沒有經過蘋果MFI認證的數據線。如果你的數據是山寨或者假冒的，就會出現不能充電和不支持此配件。建議你購買和使用蘋果正品原裝的充電器和有蘋果MFI認證的數據線，蘋果官網是可以查的，例如提亞TIYA數據線就是蘋果認證過的，你可以上官網查TIYA，就能查到認證... 2023-07-07
科技蘋果手機怎麼取消網站攔截
演示機型：Iphone12系統版本：iOS14.41、在手機桌面點擊“設置”圖标，打開設置界面。2、在設置界面點擊“Safari浏覽器”。3、在Safari浏覽器界面中點擊“阻止跨網站跟蹤”後面的圓點。4、阻止跨網站跟蹤後面的圓點變為灰色即表示iPHONE關閉Safari浏覽器阻止跨網站跟蹤成功，即可取消網站攔截。蘋果手機使用 2023-07-07
科技怎麼在微信群中進行多人視頻聊天
1、打開微信，找到一個群聊，點擊進入群聊。2、然後找到下方的+”号，點擊進入。3、接着我們就能看到語音通話”，點擊進入。4、最後添加群聊的成員，可以在後面的方框打勾，選擇自己想多人視頻的對象即可。 2023-07-07
科技 192.168.11路由器設置方法是...
1、192.168.1.1，這個地址是國内路由器設置的通用地址。2、一般完成路由器的硬件安裝連接後，需要在電腦上打開這個地址，并按照相關提示完成路由器的線上設置。3、首先需要填寫管理員登錄密碼，一般賬号密碼都是admin，如果不是在路由器說明書和機器背面應該會有标注。4、設置撥号方式，這裡要根據家裡... 2023-07-07
科技電視沒網絡怎麼辦
1、先查看電視機的網絡連接情況，如連接不正常，屏幕上會有網絡沒有連接”之類的提示。查看電視機設置的IP參數是否有誤，有誤重新設置，保證網絡連接正常；2、上述設置無效時，用電腦或手機連接該寬帶，測試可否上網。能正常連接上網使用，問題壓縮至網絡電視機部分；3、若不能連接寬帶上網，檢查寬帶入戶設備，如貓、路由器、網線，直至手機、電腦可正常上網。解決網絡問題後，電視即可正常收視；4、若網絡正常，問題可能與 2023-07-07
科技手機定位在哪裡打開
1、解鎖手機進入主界面，選擇設置”。2、進入設置界面，選擇定位服務”。3、進入定位設置界面後，将定位服務”右側滑塊開啟。4、開啟後即可打開GPS功能，在下方可以選擇不同的定位模式”。 2023-07-08
科技中型suv和中大型suv的區别是什麼
1、車身的大小不一樣。中型和中大型SUV給人最為直觀的感受就是汽車的車身大小程度不一樣，中型SUV的軸距在2700mm左右，而車身長度則是來到了4700-4900mm這個區間，中大型SUV則比這個尺寸更大。2、車内空間不一樣。中型的SUV車内空間足以滿足日常的家用需求，甚至還有剩餘的空間。中大型的SUV車内空間的表現就更大了，可以适應各種情況下對空間的需求。3、汽車的動力方面有所不同。中型SUV汽 2023-07-07
科技微信小商店和小程序商城的區别
演示機型：Iphone12&&華為P40&&小米11系統版本：iOS14.4&&EMUI11&&MIUI12.0.7APP版本：微信8.0.71、用戶體驗差别：微信小程序是一個無需下載的“APP”，功能完善，操作更流暢；而微店類似一個手機網頁版的商城網站。2、功能配置差别：微信小程序基于商家的需求可以開發各種功能，比如優惠券、拼團、秒殺等營銷功能，自主性比較大；而微店是入駐 2023-07-07
科技手機防盜密碼忘了怎麼辦
1、發送驗證碼。如果忘記了手機防盜密碼，可以用其他手機發送#QQPin#”到手機上，過一會手機防盜密碼就會發送信息，到緊急聯系人的手機号碼上，就可以解鎖了。在設置緊急聯系人的時候，系統會要求預設一個聯系方式，就是緊急聯系人的号碼。2、營業大廳。還可以去營業大廳解決，去手機購買網點尋找工作人員的幫助。攜帶身份證、手機等物品到相關的營業大廳，找到工作人員出示身份證明之後，就可以通過專業人員的服務，将手 2023-07-07
科技戴爾win10怎麼關閉自動更新
演示機型：戴爾ins15系統版本：win101、右擊電腦左下角的微軟按鈕，彈出的界面，點擊運行。2、彈出的運行中，輸入services.msc，之後點擊确定。3、彈出的界面，雙擊WindowsUpdate。4、彈出的界面，将啟用狀态改為禁用，之後點擊确定即可。電腦應該怎麼選擇：1、首先點擊此電腦，點擊進去後點擊最左側的屬性按鈕。2、在彈出的界面中，會有處理器，已安裝的内存，如果是工作用的，内存4G 2023-07-07
科技筆記本電腦怎麼連接wifi
1、打開wifi開關：通常筆記本電腦連接不上wifi都是因為關閉了wifi開關，有些電腦是通過Fn鍵... 2023-07-08
科技小孩咬手指如何阻止
第一、環境因素由于身心等各方面都處于發育狀态，使得孩子相比于大人，對于外界環境的敏感度是特别高的。若孩子長時間的處于不良環境中，如父母天天吵架，時常打罵孩子等的話，便很容易讓孩子因為緊張加劇孩子咬手指的毛病。建議大家平時應注意控制自己的情緒，盡量給孩子營造一個溫馨舒适的環境，以讓他的心理得到放松，進而改掉毛病。第二、轉移注意在日常生活中，有些父母會為了省事兒而在面對孩子咬手指這件事上采取一種縱容的 2023-07-08
科技菠菜的種植要點有哪些
1、種植時間一般為8~9月，播種後30~40天可分批采收。秋菠菜品種宜選用較耐熱、生長快的早熟品種，比如黃秋大葉、犁頭菠、華菠1号、廣東圓葉等。2、清水浸種。先将種子清洗幹淨，在放置在清水中浸泡3-5天，當種子長出嫩芽時即可播種，期間要注意如果清水渾濁時要及時換水。3、播種育苗。菠菜的播種方式一般是撒播，畦面的澆足水後播種。春、冬播種的話可以直接播幹籽或者濕籽，每畝播種數量為3~3.5公斤左右。4 2023-07-07
科技 1tb等于多少g
1、1TB理論值：1TB=1024G。2、1TB廠家值：1TB=1000G。3、1TB實際值：1TB... 2023-07-08
科技蘋果手機上郵件怎麼添加qq郵箱設置
1、首先打開手機中的郵件軟件。2、可以看到各種郵箱選項。3、點擊下方的“其他”選項。4、然後可以看到... 2023-07-07
科技真我手機是哪個旗下的
演示機型：realmeX50pro系統版本：ColorOS11真我手機是oppo旗下的手機，realme（真我）是oppo旗下的一個子品牌，在2018年5月4日成立，主要針對的是國外手機市場。在2018年7月份的時候正式脫離oppo，獨立運營，而realmex則是realme首款回歸國内市場的機型。realme圍繞手機+AIoT戰略，推出1+4+N産品策略，旗下産品以5G手機為核心，連接音箱、電視 2023-07-07
科技甜菜低糖怎麼防治
1、選用高糖優良品種，加強品種的繁育工作。2、種植時選擇地勢平坦、土層深厚、肥力中上等地塊，确保排水灌水暢通，做好基肥深施，冬翻冬灌工作。3、改進栽培方法，要重視地膜覆蓋，适時早播，合理密植，入冬前将地整成待播狀态，翌年春天稍加耙耱即可播種。4、提高配方施肥水平，重視有機肥，合理增施磷、鉀肥，适當控制氮肥用量。5、加強田間管理，及時防治病蟲害，及早間苗定苗，中後期杜絕草荒，後期大草對含糖影響較大。 2023-07-07
科技女生經期不能吃什麼
第一、不能吃生冷。我想這個女生都知道，經期吃了冷的很可能等會兒你的肚子就疼得死去活來的了。第二、不能吃牛奶。牛奶屬于乳酪，而乳酪類是痛經的禍源。經期吃牛奶不僅不能緩解痛經，還會更痛哦。第三、不能吃巧克力。女生經期情緒本就不穩定，而吃巧克力更會使情緒失控。同時，巧克力屬于高糖類，容易造成血糖不穩定，影響體内荷爾蒙的平衡，加重不舒服的感覺。第四、不能喝酒。雖然女生喝酒的并不多，但也一定要注意經期是不能 2023-07-07
科技為什麼手機老是關機
1、檢查手機電池：當你的手機使用了一些時間之後，電池就會出現一些問題。所以，如果你的手機自動關機了，那麼大家就要趕緊檢查一下電池是不是存在着一些問題。2、對手機進行安全掃描：很多時候，在我們不知情的情況下，你的手機很有可能被種植了一些病毒或者木馬，就有可能經常會出現自動關機的情況。3、檢查手機軟件：每一個品牌的手機都有自身設定的軟件容量。所以，在你的手機内如果下載了過多的軟件，或者你下載的軟件中有 2023-07-07
科技 OPPO手機如何找回
1、手機丢失後使用别人手機或者電腦登錄oppo雲服務，輸入賬号密碼登錄。2、進入雲服務後，點擊查找手機，進入定位界面。3、在這裡我們就可以看到我們手機的位置，可以放大查看位置範圍，作者試了下，紅色标注位置還是挺準确的。4、可以通過上述的定位信息進行找回，我們同時可以點擊左側手機上的【鎖屏】、【響鈴】... 2023-07-07
科技華為主屏幕上的圓點在哪裡設置
演示機型：華為P40系統版本：Android111、首先打開華為手機，點擊桌面的設置。2、然後進去手機設置，下滑到最底部，點擊系統。3、接下來在華為手機系統界面，點擊系統導航方式。4、在系統導航方式可以看到懸浮導航，這個就是設置華為手機小圓點的。5、接下來進去之後，開啟懸浮導航，小圓點就會出現，根據需要使用。 2023-07-07
科技網絡打印機共享方法
1、将連接打印機線的電腦作為主電腦，在電腦控制面闆裡找到打印機圖标後點鼠标右鍵。2、點擊鼠标右鍵選打... 2023-07-07
科技蘋果密碼6位改4位在哪設置
演示機型：Iphone12系統版本：ios14在iPhone手機主屏上找到“設置”。點擊“TouchID與密碼”。這時，系統需要輸入原來的鎖定密碼。輸入原來的鎖定密碼，然後點擊右上角的“完成”。進入“TouchID與密碼”的設置頁面中，往下翻頁，找到“更改密碼”選項，直接打開。密 2023-07-07
科技 win10誤删文件後怎麼找回
1、打開開始--運行，輸入regedit，點擊确定。2、依次展開：HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerDeskTopNameSpace。3、在該目錄下新建項：645FFO40-5081-101B-9F08-00AA002F954E。4、點擊該新建項，雙擊右側的默認”修改其數值數據為回收站”。5、重啟電腦，打 2023-07-07
科技發表的視頻有水印怎麼辦
1、對于在手機上給視頻去水印，都需要一些工具的幫助，打開手機中的無痕去水印，然後在頁面中點擊視頻去水印”。2、然後會跳轉到視頻添加的頁面，在手機的相冊中添加你需要去水印的視頻。3、在進入去水印界面後，我們拖動進度條，選取需要去水印的畫面，然後調整畫面中的藍色框框，來選取畫面的去除水印的範圍。4、水印去除的畫面和範圍，都選取好後，我們點擊右上角的完成”。5、然後點擊保存即可将視頻保存到本地。 2023-07-07
科技 5g雙模區别是什麼
1、這就好比之前運營商也曾規定隻有4G手機才能入網，3G手機不能入網。但大家都可以看到，這一規定并不影響手機在3G網絡狀态下的使用。2、無論是SA還是NSA，都隻是運營商不同的組網方式罷了。組網模式的改變，并不會導緻5G網絡的使用受到影響。組網模式的不同，主要影響運營商接下來的基礎設備和網絡架構建設，但消費者的體驗則基本與此無關。 2023-07-07
科技 win10怎麼删除分區重新分區
演示機型：華為MateBookX系統版本：win101、點擊電腦裡面左下角的“開始”。2、找到并點擊打開“Windows管理工具”。3、在Windows管理工具裡找到“計算機管理”并點擊打開。4、找到并點擊“磁盤管理”。5、找到設置的分區了，點擊鼠标右鍵選擇删除。6、删除卷之前，把需要備份的資源先備份一 2023-07-07

tft每日頭條

> 科技

> vba取旁邊一列的數據

vba取旁邊一列的數據

相关科技资讯推荐

热门科技资讯推荐

网友关注