求个数据调用代码

YZC51 · 发表于 2019-1-22 14:00

或者

20190122.zip (313.25 KB, 下载次数: 5)

779846526 · 发表于 2019-1-22 14:12

YZC51 发表于 2019-1-22 14:00
或者

谢谢您的多次帮忙，再次谢谢

779846526 · 发表于 2019-1-22 14:13

lsc900707 发表于 2019-1-22 12:38
每一列行数不同耶。参考附件：

谢谢版主的多次帮忙，测试时发现调用数据时把格式也调用了，实际使用时只要调用数值就行，不知如何修改下

lsc900707 · 发表于 2019-1-22 15:56

本帖最后由 lsc900707 于 2019-1-22 17:29 编辑

779846526 发表于 2019-1-22 14:13
谢谢版主的多次帮忙，测试时发现调用数据时把格式也调用了，实际使用时只要调用数值就行，不知如何修改下

好，有空时用数组写一个。参考测试附件：

YZC51 · 发表于 2019-1-22 18:37

本帖最后由 YZC51 于 2019-1-22 19:30 编辑

请参考
Sub 选修课()
m = Sheets("选考数据").[a65536].End(3).Row
arr = Sheets("选考数据").Range("a1:AI" & m)
brr = Sheets("学生课表").Range("a1:M" & m)
For i = 2 To m
For j = 1 To 9 Step 4
For k = 4 To 35
If brr(i, j + 4) = arr(1, k) Then arr(i, k) = "R"
Next
Next
Next
Sheets("选考数据").Range("a1").Offset(0, 0).Resize(m, 31) = arr Sheets("选考数据").Range("d2:AI" & m).Font.Name = "Wingdings 2"
End Sub

779846526 · 发表于 2019-1-22 21:58

lsdongjh 发表于 2019-1-22 13:20

谢谢老大的帮忙，再次谢谢您

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

[求助] 求个数据调用代码

评分

评分