同一工作簿内多张竖表工作表转成一张横表

lsc900707 · 发表于 2019-3-18 17:16

ezjahz 发表于 2019-3-17 22:17
lsc900707老师：晚上好！
谢谢您！您这样修改，正是我想要的，因为这样更清晰了。只是当时手工复制工 ...

代码稍加修改即可：

Sub gj23w98()
Set d = CreateObject("scripting.dictionary")
For Each sht In Sheets
If sht.Name <> ActiveSheet.Name Then
With sht
arr = .[a1].Resize(59, 12)
crr = Array(2, 9, 10, 11, 12)
For i = 5 To UBound(arr)
For j = 0 To UBound(crr)
If Len(arr(i, 1)) Then s = Trim(arr(2, 2)) & Trim(arr(i, 1)) & Trim(arr(4, crr(j)))
If Len(arr(i, crr(j))) Then d(s) = arr(i, crr(j))
Next
Next
End With
End If
Next
brr = [a1].CurrentRegion
m = UBound(brr): n = UBound(brr, 2)
For i = 4 To m
For j = 24 To n Step 5
For k = 0 To 4
s = Trim(brr(i, 2)) & Trim(brr(2, j)) & Trim(brr(3, j + k))
If d.exists(s) Then brr(i, j + k) = d(s)
Next
Next
Next
[a1].CurrentRegion = brr
End Sub

复制代码

lsc900707 · 发表于 2019-3-18 17:19

ezjahz 发表于 2019-3-17 22:17
lsc900707老师：晚上好！
谢谢您！您这样修改，正是我想要的，因为这样更清晰了。只是当时手工复制工 ...

测试参考附件：

ezjahz · 发表于 2019-3-18 22:11

lsc900707 发表于 2019-3-18 17:19
测试参考附件：

lsc900707 老师，晚上好！
已达目的。
非常感谢您的热心赐教！
再次感谢！

ezjahz · 发表于 2019-3-19 21:39

lsc900707 发表于 2019-3-18 17:19
测试参考附件：

lsc900707 老师，晚上好！
当在核算表的LL:LQ区域单元格内写好间隔求和公式SUMIF后，再点竖转横按钮后，则报运行时错误’9’:下标越界

进入调试后，黄色落在以下语句上
s = Trim(brr(i, 2)) & Trim(brr(2, j)) & Trim(brr(3, j + k))
详见附件。

同一工作簿内多张竖表工作表转成一张横表1903171819.rar (144.87 KB, 下载次数: 1)
请老师抽空看一下。谢谢！

lsc900707 · 发表于 2019-3-19 21:52

本帖最后由 lsc900707 于 2019-3-19 21:56 编辑

ezjahz 发表于 2019-3-19 21:39
lsc900707 老师，晚上好！
当在核算表的LL:LQ区域单元格内写好间隔求和公式SUMIF后，再点竖转横按钮后， ...

你增加了6列数据当然会报错的。为了避免错误，你应该先点击按钮运行代码后再去增加列求和。你一定要增加列的话就要修改代码（建议你定稿后我再修改。)

ezjahz · 发表于 2019-3-22 12:33

lsc900707 发表于 2019-3-19 21:52
你增加了6列数据当然会报错的。为了避免错误，你应该先点击按钮运行代码后再去增加列求和。你一定要增加 ...

lsc900707老师中午好！
谢谢您热情回复。
不好意思，因近期正在手工做这张表，有点忙，没及时回复您。谢谅解。
我以为在后面添加公式再竖转横不会对转换有影响的。抱歉！
如果每次先转换，再编辑汇总公式还是有点不快捷。
您肯定看得出来，核算表实质上就是各核价单中以单号为关系的汇总表。
要转换的内容的确比较多，之前请您帮忙的只是一部分。
核价表与核算表单元格之间的关系请详见附件中“本次想达目的”，两表以相同颜色标注。
这次附件是定稿的了

同一工作簿内多张竖表工作表转成一张横表1903171822.rar (158.55 KB, 下载次数: 2)

如果可以的话，请老师抽空帮忙修改、完善。
而如果没时间，就请老师帮忙解决“增加6列数据而报错的”问题。
多次麻烦您了！谢谢！

lsc900707 · 发表于 2019-3-22 13:46

本帖最后由 lsc900707 于 2019-3-22 18:39 编辑

ezjahz 发表于 2019-3-22 12:33
lsc900707老师中午好！
谢谢您热情回复。
不好意思，因近期正在手工做这张表，有点忙，没及时回复您。 ...

开始要想好表单要怎么做，不能想一步做一步，增加写代码的难度。f,g列等这些数据你也是要输入进去的吗？

lsc900707 · 发表于 2019-3-23 10:55

ezjahz 发表于 2019-3-22 12:33
lsc900707老师中午好！
谢谢您热情回复。
不好意思，因近期正在手工做这张表，有点忙，没及时回复您。 ...

修改为单元格写入，但是速度会慢一些。参考测试附件：

ezjahz · 发表于 2019-3-23 12:53

lsc900707 发表于 2019-3-22 13:46
开始要想好表单要怎么做，不能想一步做一步，增加写代码的难度。f,g列等这些数据你也是要输入进去的吗？
...

lsc900707老师中午好！
是这样的，这张表原前面部分是各业务员自已先填好的，我只要登记汇总后面一块（核价单上I5至L59区间），因而就没麻烦您，现在要全部由我1人完成了，所以才再次请您相助的。却不想给您增加了麻烦。抱歉！
核价表上的单元格e61、单元格f61（不是整列，这次都是单元格，非整列），按单号关系，需输入到核算表的J4、K4及向下。核价单上的g列不需要输入。
原谅我前次没表述清楚。抱歉！
辛苦您了！谢谢！

lsc900707 · 发表于 2019-3-23 12:55

ezjahz 发表于 2019-3-23 12:53
lsc900707老师中午好！
是这样的，这张表原前面部分是各业务员自已先填好的，我只要登记汇总后面一块（ ...

我已经修改好了，自己测试结果吧。

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

[已解决] 同一工作簿内多张竖表工作表转成一张横表

评分

评分