让Excel中先后选中的两列或两排内容互换如何编写代码通过点击按钮实现呢?
请教兄弟,我想让Excel中先后选中的两列或两排内容互换,又如何编写代码通过点击按钮实现呢?非常感谢您的帮助。我是老师,想设计一个座次表模板,每次调座位可以通过列与列,行...
请教兄弟,我想让Excel中先后选中的两列或两排内容互换,又如何编写代码通过点击按钮实现呢?非常感谢您的帮助。我是老师,想设计一个座次表模板,每次调座位可以通过列与列,行与行,及单元格之间的调整来实现。
展开
1个回答
展开全部
把以下的放在文本中,然后后缀改成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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询