excl数据分类代码求教

ylj518 · 发表于 2023-7-11 08:02

把sheet1的数据按班级复到各自工作表中，代码死循环了，求教高手！

liulang0808 · 发表于 2023-7-11 08:17

本帖最后由 liulang0808 于 2023-7-11 08:18 编辑

Worksheets("sheet1").Cells(i, 1).Resize(1, 7).Copy Destination:=Worksheets(Worksheets("sheet1").Cells(i, 3).Value & "").Range("a1048576").End(xlUp).Offset(1, 0)

注意表名如果是数字，需要把数字要改成字符串格式，不然就是对应序号了

沈默00 · 发表于 2023-7-11 08:32

我之前也是这样的，我都是把看的视频里的代码截图下来，先抄一遍，然后自己写一遍，这样更容易发现错在哪里了。

excel玉米 · 发表于 2023-7-11 08:33

lcluck2002 · 发表于 2023-7-11 08:42

仅供参考（友情提示：如果某一个班级只有一名学生，程序会出错）
把sheet1的数据按班级复到各自工作表中0711

ykcbf1100 · 发表于 2023-7-11 09:13

本帖最后由 ykcbf1100 于 2023-7-11 09:19 编辑

今天开个工。。。

ylj518 · 发表于 2023-7-11 09:21

太感谢大家了！又学到东西了！

feilanga · 发表于 2023-7-11 10:06

............

dl8121032 · 发表于 2023-7-12 14:21

Sub aa()
For i = 2 To 20
n = Val(Sheets(1).Cells(i, 3).Value)
If n = 1 Then
s = s + 1
Sheets(1).Range("A" & i, "h" & i).Copy
Sheets("1").Range("a" & s).PasteSpecial
End If

If n = 2 Then
y = y + 1
Sheets(1).Range("A" & i, "h" & i).Copy

Sheets("2").Range("a" & y).PasteSpecial
End If
Next

End Sub

		自动登录	找回密码
密码			免费注册

[求助] excl数据分类代码求教