[已解决]号码的当前值

tgydslr · 发表于 2015-1-7 07:39

mmc998 发表于 2015-1-6 22:59

这样不纠结了吗

=LOOKUP(A38,{1,4;2,4;3,2;4,1;5,1;6,5;7,3;8,0;9,3;10,3;11,1;12,4;13,0;14,2;15,0;16,4;17,12;18,9;19,3;20,0;21,0;22,2;23,7;24,2;25,0;26,5;27,1;28,10;29,6;30,19;31,5;32,2;33,3})<FONT style="BACKGROUND-COLOR: #f7f7f7">

复制代码

=--MID("040402010105030003030104000200041209030000020702000501100619050203",A38*2-1,2)

复制代码

tgydslr · 发表于 2015-1-7 07:41

但愿这次没猜错

Book当前遗露.rar (16.79 KB, 下载次数: 9)

mmc998 · 发表于 2015-1-7 08:02

tgydslr 发表于 2015-1-7 07:41
但愿这次没猜错

求代码

tgydslr · 发表于 2015-1-7 08:06

mmc998 发表于 2015-1-7 08:02
求代码

咱们一块等着吧

mmc998 · 发表于 2015-1-7 08:07

tgydslr 发表于 2015-1-7 08:06
咱们一块等着吧

谢谢

爱疯 · 发表于 2015-1-7 15:25

Sub Click()
Dim A, B, i, j
A = [h36:an36] '是手动指定的？
B = Range("a38").CurrentRegion '可能要改，需根据A38周围数据，来确定如何赋值。
For i = 1 To UBound(B)
      For j = 1 To UBound(B, 2)
         B(i, j) = A(1, B(i, j))
      Next j
Next i
[H38].Resize(UBound(B), UBound(B, 2)) = B
End Sub

Book当前遗露2.rar (23.03 KB, 下载次数: 5)

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