总分文件夹下，所有excel的多个相同列乘以不同的系数

kinopop · 发表于 2018-6-27 21:05

本帖最后由 kinopop 于 2018-6-29 10:45 编辑

上月提过一问，恕我愚昧，新手上路，苦于改写，希望跟大神多请教一番

以东南新院为例是最复杂情况
希望实现总文件夹下，所有excel的数据中
从第六行到第90行不等
其中空缺值不填充

J列乘以1.1，
L列乘以1.2，
N列乘以1.3，
P列乘以1.4，
R列乘以1.5。

jiminyanyan · 发表于 2018-6-27 21:25

你先把一个工作薄搞定，然后套个循环。。。

opiona · 发表于 2018-6-27 22:04

ARX = Split("10,12,14,16,18", ",")
BRX = Split("1.1,1.2,1.3,1.4,1.5", ",")
FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False) '//含子文件夹；文件路径
If FileArr(I) <> "" Then
For I = 0 To UBound(FileArr)
Set WB = Workbooks.Open(FileArr(I)) '//打开文件
Set SHW = WB.Worksheets(1)
For IROW = 6 To SHW.Range("B65536").End(3).Row
For X = 0 To UBound(ARX)
If Len(SHW.Cells(IROW, Val(ARX(X))).Value) > 0 Then '
SHW.Cells(IROW, Val(ARX(X))).Value = SHW.Cells(IROW, Val(ARX(X))).Value * Val(BRX(X))
End If
Next
Next
WB.Close True
Next
End If

复制代码

opiona · 发表于 2018-6-27 22:08

QQ14885553.rar (34.55 KB, 下载次数: 8)

abc123281 · 发表于 2018-6-27 22:21

2017清单abc123.rar (32.68 KB, 下载次数: 9)

kinopop · 发表于 2018-6-27 22:40

opiona 发表于 2018-6-27 22:08

Q已标记，谢谢大神，这段够我研究几天的了

kinopop · 发表于 2018-6-27 22:41

abc123281 发表于 2018-6-27 22:21

谢谢大神，通俗易懂，我需要提高的就是整合的能力

kinopop · 发表于 2018-6-28 15:45

abc123281 发表于 2018-6-27 22:21

你好，如果想把系数，放到表格里，使用前可以修改的话，要怎么改呢？

不知道为什么 · 发表于 2018-6-28 15:47

kinopop 发表于 2018-6-27 22:40
Q已标记，谢谢大神，这段够我研究几天的了

论坛感谢帮助你老师最好的方式就是给与评价和鲜花。呵呵

abc123281 · 发表于 2018-6-28 15:58

2017清单abc123已修改.rar (64.8 KB, 下载次数: 7)

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

[已解决] 总分文件夹下，所有excel的多个相同列乘以不同的系数

评分

评分

评分