网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,561贴子：1,539,764
  • 13回复贴，共1页

求教怎样做表，处理起来效率高

如图所示，我们组织要求弄的空课表、排班表基本都是以这个形式弄的，说是什么录入的时候照顾那些不会电脑的人，但是我们这些后期处理的已经吐了
问一些做表大佬说可以弄一维表，也可以弄二维表，还可以弄数据透视表，但是我做表经验太少了，那些表大概应该怎么样弄呢，想请教一下各位贴吧大佬





你是要根据分表汇总成汇总表？很简单。


Sub hz()
[t3:z7].ClearContents
For i = 3 To 7 '汇总表的3到7行，第一节到第五节
For j = 20 To 26 '汇总表的20～26列（星期1～5）
For k = 0 To 20 '只汇总20周的数据
h = k * 10 + i + 1 '汇总这一行的数据
L = (j - 20) * 2 + 3 '数据列
If Cells(h, L) <> "" Then Cells(i, j) = CStr(Cells(i, j)) & CStr(Cells(h, L)) & " " '教师1
If Cells(h, L) <> "" Then Cells(i, j) = CStr(Cells(i, j)) & CStr(Cells(h, L + 1)) & " " '教师2
Next k
Next j
Next i
End Sub


Sub hz()
[t3:z7].ClearContents
For i = 3 To 7 '汇总表的3到7行，第一节到第五节
For j = 20 To 26 '汇总表的20～26列（星期1～5）
For k = 0 To 20 '只汇总20周的数据
h = k * 10 + i + 1 '汇总这一行的数据
L = (j - 20) * 2 + 3 '数据列
If Cells(h, L) <> "" Then Cells(i, j) = CStr(Cells(i, j)) & CStr(Cells(h, L)) & " " '教师1
If Cells(h, L) <> "" Then Cells(i, j) = CStr(Cells(i, j)) & CStr(Cells(h, L + 1)) & " " '教师2
Next k
Next j
Next i
End Sub


Sub hz()
[t3:z7].ClearContents
For i = 3 To 7 '汇总表的3到7行，第一节到第五节
For j = 20 To 26 '汇总表的20～26列（星期1～5）
For k = 0 To 20 '只汇总20周的数据
h = k * 10 + i + 1 '汇总这一行的数据
L = (j - 20) * 2 + 3 '数据列
If Cells(h, L) <> "" Then Cells(i, j) = CStr(Cells(i, j)) & CStr(Cells(h, L)) & " " '教师1
If Cells(h, L) <> "" Then Cells(i, j) = CStr(Cells(i, j)) & CStr(Cells(h, L + 1)) & " " '教师2
Next k
Next j
Next i
End Sub


私信也不行，哈哈哈哈！


那些什么打广告的，想赚外快的就别找我了，谢谢


别到时候被戳到痛处大家不好看


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 13回复贴，共1页
分享到: