VBA存入excel表单的问题~当excel的单元格未激活怎么办?

发布网友发布时间：2022-03-27 15:38

共2个回答

热心网友时间：2022-03-27 17:07

这是因为第一行空着的时xr参数少了一行,数据错位引起,可以用定位最后行.SpecialCells(xlCellTypeLastCell).Row
或End(xlDown).row解决

热心网友时间：2022-03-27 18:25

其实用End语句可能更好一些！！
xc = Sheets(m).Cells(2,"IV").End(xltoLeft).Column注意，这里的IV2单元格，你需要根据你的实际数据情况进行选择。如果你的表格结构是固定的，第二行可以代表最大列数行，那么就以IV2为定位单元格，如果第三行代表最大列数，就用IV3单元格。
xr = Sheets(m).Cells(65536,"A").End(3).Row同理，如果A列代表最大行数列，则用A列，如果B列代表最大数据列，则用Cells(65536,"B")

关键看你的表格结构。如果你的表格结构是在是
飘忽不定
，那么可以尝试使用下面的方法：
With xc = ActiveWorkbook.Sheets(m).UsedRange
xc = .Column - 1 + .Columns.count '最后列列标数值
xr = .Row - 1 + .Rows.count '最后行的行标
End With

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com