问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

小白提问VBA 工作表排序问题?

发布网友 发布时间:2023-09-22 02:11

我来回答

2个回答

热心网友 时间:2024-12-14 16:33

这段代码只对 A 列从 A2 开始向下的单元格有用。对于 B2 开始没有用:

For i = 2To sht.Cells(Rows.Count, 1).End(3).Row  '从 A 列第 2行开始到 A列最后一行

'遍历工作表A列的数据,A1以外。

shtname = sht.Cells(i, 1)   'Cells(RowIndex, ColumnIndex),所以 1 表示第 1列,即 A 列


如果你想改到 C5:C20,那你就在这两句代码上做文章。

追问按照你的思路改成以下到了移动工作表工序还是会出错

For i = 5 To sht.Cells(Rows.Count, 3).End(3).Row
shtname = sht.Cells(i, 3)
上面是改了下面这个语句出问题,中间是不是该增加一个 i = 2 to shees.count
但就是不知道该怎么加。。。
Sheets(shtname).Move after:=Sheets(i - 1)

热心网友 时间:2024-12-14 16:34

原来的程序就是个错误!
Sub SortSheet()
Dim Arr, ShtName, i&, AcSht As Worksheet
Set AcSht = ActiveSheet
' 要排序的表名称数据区域
' 如果名称错误,就运行错误
' 如果名称重复且数量不超过总表数,不会报错但结果嘿嘿
Arr = [D4:D6]

For Each ShtName In Arr
i = i + 1
Worksheets(ShtName).Move Before:=Worksheets(i)
Next ShtName
AcSht.Activate
End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
中国人发源于哪里 "中国人"这个名字的由来 微博关注取消会被发现吗? ...守护甜心》等……带点魔法的变身动画片!拜托!!! 跪求:位,字节,字,双字的解释,和关系。最好举例说明例如:VD100_百度知... 电脑的工作原理?为什么数据可以记录信息(如图片) 新风为什么要保温 新风系统为什么要保温 几年的教师资格转事业编制 ay89s51单片机可以用串口下载程序吗? VBA排序引用无效 ...行从小到大排序,并把数据写在相应行后面,去除重复的数据 在excel 中用vba编程进行行排序,为什么执行对象没变化? 从三门峡火车站到东城区派出所坐几路公交车? 去三门峡中裕燃气公司坐几路公交? 要是公积金异地缴存不见了怎么办 在黄山住帐篷露营要注意什么 包苹果的泡沫网怎么做手工花 自己制作手工肉馅饼能在网卖吗? 原神宵宫厨的名字? 原神哪个厨最变态 奉节到深圳坐大巴要多久 湖北黄冈的标志,风景如画的东坡赤壁,有庄严别致的历史气息吗? ...有5本左右,我会坐飞机回到香港,这些书可以安全过关吗?日本跟香港... 国外买书能过海关吗 ...小说(淘宝上也有卖的就是太贵了),不是那种书,可以带回国么?_百度知 ... 在日本亚马逊买书运费怎么收? 用哪种方式用不会被海关什么的查?大概... 关于洗装备的那点事儿 陕汽总装厂工艺技术怎么样 蔡家坡陕汽厂是生产配件厂吗 中国银行股份有限公司芜湖中二街支行怎么样? 现在的问道怎么挣钱啊? 我还没有玩过问道,只能从小号开始。 求最新的挣... 蓝牙耳机变英语了怎么调回来? 腊月开花是什么生肖 佟年墨笙是情侣名吗? 好听稀少的情侣网名古风 空调过滤网不清洗会带来的后果都有哪些? 百川无浪到沧溟的解释百川无浪到沧溟的解释是什么 问道人物跟星星差几级人物能看到? 问道 怎么看 星 的级数啊 m方-2am大于等于0,a在-1到1的闭区间,求m的范围 清水房什么意思 w7系统Internet Explorer 已经遇到加载项故障并且需要关闭怎么解决... 电脑 出现 Internet Expiorer 已经遇到加载项故障并且需要关闭 这个... 陕西省政治工作局主要是干什么的 恰玛古什么人不能吃 车内灯是哪个按钮 汽车上的灯的按钮。 8台风机盘管用多大管道 蓝牙打卡怎么打