让Excel中先后选中的两列或两排内容互换如何编写代码通过点击按钮实现呢？

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:39:23
请教兄弟，我想让Excel中先后选中的两列或两排内容互换，又如何编写代码通过点击按钮实现呢？非常感谢您的帮助。我是老师，想设计一个座次表模板，每次调座位可以通过列与列，行与行，及单元格之间的调整来实现。

把以下的放在文本中，然后后缀改成vbs，把你的excel改成arrangeseat.xls,里边的人放在第1，2，3，4列就可以了，我弄的座位是4排的，如果不是4排再告诉我。

mypath=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
set excelapp=createobject("excel.application")
excelapp.visible=false
set excelbook=excelapp.workbooks.open(mypath&"\"&"arrangeseat.xls")
set excelsheet=excelbook.worksheets(1)
rowcount=excelsheet.usedrange.rows.count
dim a(12)
for i=1 to rowcount
a(i)=excelsheet.cells(i,4)
excelsheet.cells(i,4)=excelsheet.cells(i,3)
excelsheet.cells(i,3)=excelsheet.cells(i,2)
excelsheet.cells(i,2)=excelsheet.cells(i,1)
excelsheet.cells(i,1)=a(i)
next
excelapp.quit