这个VBA 怎么简写？

极速雪奔 · 发表于 2020-9-25 09:09

本帖最后由极速雪奔于 2020-9-25 09:58 编辑

这个VBA 要写下去好长，怎么简写？目的如图所示
屏幕截图(1).png

Excel 工作表.rar (7.71 KB, 下载次数: 14)

lgs2296129235 · 发表于 2020-9-25 09:29

这个不用那个代码就方便了

极速雪奔 · 发表于 2020-9-25 09:32

lgs2296129235 发表于 2020-9-25 09:29
这个不用那个代码就方便了

请教，怎么实现？

极速雪奔 · 发表于 2020-9-25 09:35

lgs2296129235 发表于 2020-9-25 09:29
这个不用那个代码就方便了

要用什么代码？谢谢！

花儿为什么这样 · 发表于 2020-9-25 09:35

本帖最后由花儿为什么这样于 2020-9-25 09:39 编辑

用字典，赋值法
select Case也可以，算比较简单的吧

极速雪奔 · 发表于 2020-9-25 09:40

花儿为什么这样发表于 2020-9-25 09:35
用字典，赋值法
select Case也可以，算比较简单的吧

这个怎么用，能不能在表格里面写一下？

donghui2363 · 发表于 2020-9-25 09:43

是这个意思吗？

arr = Array("贾诩", "程昱", "郭嘉")
With Sheet1
For i = 1 To 20
If i > UBound(arr) + 1 Then Exit For
If .Range("a" & i) = i Then
.Range("a" & i).Offset(0, 1) = arr(i - 1)
End If
Next
End With

复制代码

极速雪奔 · 发表于 2020-9-25 09:48

donghui2363 发表于 2020-9-25 09:43
是这个意思吗？

你好，目标是用A列的数据，在B列返回指定名字
1 10=贾诩
3 6 16=郭嘉
2 8 12=程昱
14 15=荀彧
4 18=司马懿
5 20=张昭
9 13 17=鲁肃
7 11 19=诸葛亮

花儿为什么这样 · 发表于 2020-9-25 09:51

极速雪奔发表于 2020-9-25 09:40
这个怎么用，能不能在表格里面写一下？

Sub 判断并返回()
Dim i
For i = 1 To 20
Select Case Sheet1.Range("a" & i)
Case 1, 10
Sheet1.Range("b" & i) = "贾诩"
Case 3, 6, 16
Sheet1.Range("B" & i) = "郭嘉"
Case 2, 8, 12
Sheet1.Range("B" & i) = "程昱"
Case 14, 15
Sheet1.Range("B" & i) = "荀彧"
Case 4, 18
Sheet1.Range("B" & i) = "司马懿"
Case 5, 20
Sheet1.Range("B" & i) = "张昭"
Case 9, 13, 17
Sheet1.Range("B" & i) = "鲁肃"
Case 7, 11, 19
Sheet1.Range("B" & i) = "诸葛亮"
End Select
Next

End Sub

极速雪奔 · 发表于 2020-9-25 09:56

花儿为什么这样发表于 2020-9-25 09:51
Sub 判断并返回()
Dim i
For i = 1 To 20

要的就是这个效果，帅！，谢谢了

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

[已解决] 这个VBA 怎么简写？

评分

最新热点 /1