日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 辦公軟件教程 > 詳細(xì)頁面

excel用VBA互換兩個(gè)單元格或區(qū)域中的數(shù)據(jù)

excel用VBA互換兩個(gè)單元格或區(qū)域中的數(shù)據(jù)

更新時(shí)間:2023-12-23 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統(tǒng)的電腦編寫的一款電子表格軟件。直觀的界面、出色的計(jì)算功能和圖表工具,再加上成功的市場營銷,使Excel成為最流行的個(gè)人計(jì)算機(jī)數(shù)據(jù)處理軟件。

有時(shí)需要在Excel工作表中互換兩個(gè)區(qū)域中的數(shù)據(jù),如果區(qū)域相鄰可以直接用拖動鼠標(biāo)并按住Shift鍵的方法進(jìn)行互換。而當(dāng)兩區(qū)域不相鄰且兩個(gè)區(qū)域中的數(shù)據(jù)量較大時(shí)用VBA則較為快捷。例如在互換兩列時(shí)可以直接單擊工作表上方的列標(biāo)題選擇整列,然后執(zhí)行代碼互換數(shù)據(jù)。

在工作表中選擇兩個(gè)形狀相同的、無公共部分的區(qū)域,然后執(zhí)行下面的代碼,即可互換兩區(qū)域中的數(shù)據(jù)。

Sub TwoAreasSwap()
Dim TheArea1, TheArea2 As Variant
If Selection.Areas.Count <> 2 Then
MsgBox "請選擇兩個(gè)區(qū)域!"
Exit Sub
ElseIf Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Or _
Selection.Areas(1).Rows.Count <> Selection.Areas(2).Rows.Count Then
MsgBox "請選擇兩個(gè)形狀相同的區(qū)域!"
Exit Sub
Else
TheArea1 = Selection.Areas(1).Cells
TheArea2 = Selection.Areas(2).Cells
Selection.Areas(1).Cells = TheArea2
Selection.Areas(2).Cells = TheArea1
End If
End Sub


Excel整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗(yàn)。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 国产国产精品人在线视 | 日韩wuma| 亚洲激情久久 | 国产婷婷色 | 国产视频三区 | 欧美性生活网站 | 天天射天天操天天色 | 天天做日日爱 | 欧美精品99久久久久久人 | 欧美在线视频你懂的 | 欧美成人精品久久精品 | 欧美国产第一页 | 国产精品毛片在线大全 | 99伊人网| 免费国产人做人视频在线观看 | 欧美专区第一页 | 91视频一区二区三区 | 欧美日本免费一区二区三区 | 国产日韩亚洲欧美 | 濑亚美莉vs黑人在线观看 | 日韩视频在线观看一区 | 欧美精品v欧洲高清 | 亚洲欧美日韩高清中文在线 | 亚洲精品久久一区影院 | 国产精品99久久久 | 2021国产精品成人免费视频 | 国产三级日本三级在线播放 | 小视频在线免费观看 | 一级做受视频免费是看美女 | 97日日摸天天碰免费视频 | 亚洲免费视频观看 | 91蜜桃传媒一二三区 | 三级黄色片日本 | 欧美日本亚洲 | 欧美一级毛片大片免费播放 | 成人爱爱网站在线观看 | 天天操天天插天天干 | 水蜜桃tv| 婷婷激情综合网 | 亚洲精品视频在线看 | 午夜不卡视频 |