新手vba问题求助

VBA小白

Sub 拆分数据表()
Dim i As Integer
Dim irow As Integer
Dim l As Integer
Dim j As Integer
Dim sht As Worksheet
Dim m As Integer
Dim t As Integer



l = InputBox("请输入要划分的列数(数字)，例如：1")

Application.DisplayAlerts = False

For m = Sheets.Count To 2 Step -1
    Sheets(m).Delete

    Next

Application.DisplayAlerts = True


irow = Sheet1.Range("a65536").End(xlUp).Row
'a列的最后行

For i = 2 To irow
    k = 0
    For Each sht In Sheets
        If sht.Name = Sheet1.Cells(i, l) Then
        k = 1
        End If
        
    Next
        
    If k = 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Sheet1.Cells(i, l)
    End If
        

Next

For j = 2 To Sheets.Count


t = Range("a1").End(xlToRight).Column
'是第1行的最后列数，但是这里t显示是16384，不知道为什么

Sheet1.Range(Cells(1, 1), Cells(irow, t)).AutoFilter Field:=l, Criteria1:=Sheets(j).Name
Sheet1.Range(Cells(1, 1), Cells(irow, t)).Copy Sheets(j).Range("a1")

Next
Sheet1.Range(Cells(1, 1), Cells(irow, t)).AutoFilter
MsgBox "拆分完成"


End Sub


复制粘贴的应该是Range(Cells(1, 1), Cells(irow, t))，但是运行后每张表都粘贴了从1到irow整行

VBA小白

t在这儿不应该是固定的4吗？为什么会变成16384呢？

VBA小白

找到原因了
t = Range("a1").End(xlToRight).Column
这儿少了个sheet1
t = Sheet1.Range("a1").End(xlToRight).Column
就可以了

hao7

5入门教程可否分享，找了好多都不怎么合适

VBA小白

hao7 发表于 2021-3-10 11:15
5入门教程可否分享，找了好多都不怎么合适

不好意思，刚看到
我是看的哔哩哔哩的“跟着王老师学Excel_VBA”
感觉真的挺不错的

szllw

[Visual Basic] 纯文本查看 复制代码

A = WorksheetFunction.CountA(Rows(1))