按A4纸张大小生成一张表格（已经解决）谢谢chxw68老师

努力学习01

自动生成求助.zip (51.11 KB, 下载次数: 13)

2020-2-25 14:48 上传

点击文件名下载附件

附件里有详细的步骤。。哪位老师来帮帮忙呀、、、谢谢啦。。在线等

yjh_27

第1步  明白，对应j列
第2步  不明白，对应？列
第3步  明白，查找提取对应值。你那个对数值让我想了好久（x=logaN）
第4步  基本明白，但不清除何时保留小数点，何时取消小数点

努力学习01

yjh_27 发表于 2020-2-25 18:03
第1步  明白，对应j列
第2步  不明白，对应？列
第3步  明白，查找提取对应值。你那个对数值让我想 ...

第2步就是把   “把A4列的数乘以10列出来”的数    提取整数。（就是差不多把J列提取整数的意思）

第4步的函数。。应该是M列=LOOKUP(L4/10,A4:A10000,B4:B11000)*1000

就是查找对应的数值乘以1000

努力学习01

字段1的      单元格格式        应该是    数值   保留两位小数   的格式

yjh_27

努力学习01 发表于 2020-2-25 18:20
第2步就是把   “把A4列的数乘以10列出来”的数    提取整数。（就是差不多把J列提取整数的意思）

第4 ...

M列=LOOKUP(L4/10,A4:A10000,B4:B11000)*1000
是原始数据？
L列是序号由代码生成还是原始数据


这样第1、2步目的是什么？

努力学习01

yjh_27 发表于 2020-2-25 18:49
M列=LOOKUP(L4/10,A4:A10000,B4:B11000)*1000
是原始数据？
L列是序号由代码生成还是原始数据

L列是原始数据（A列*10后的数值），，不是序号。。。

J 列 的数 是A列*10   

L列的数是提取J列里是整数的数   

yjh_27

努力学习01 发表于 2020-2-25 19:41
L列是原始数据（A列*10后的数值），，不是序号。。。

J 列 的数 是A列*10   

你确认你的规则与示例一致？
                字段1        字段2
0                1        14.581
0.1                2        34.06
0.2                3        51.772
0.3                4        69.484
0.4                5        87.196
0.5                6        104.909
0.6                7        122.621
0.7                8        140.333
0.8                9        158.045
0.9                10        175.758
1                11        193.47
1.1                12        211.182

努力学习01

yjh_27 发表于 2020-2-25 19:52
你确认你的规则与示例一致？
                字段1        字段2
0                1        14.581

对。。附件里两张表

生成表里的   字段1里  的1   其实   就   是前面  表字段1  里的0.1
然后对应字段1的数。。找字段2 的对应数。。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a4:b" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       n = Int(arr(i, 1) * 10)
    
11.       If n <> 0 And n = arr(i, 1) * 10 Then
    
12.         d(n) = arr(i, 2) * 1000
    
13.       End If
    
14.     Next
    
15.   End With
    
16.   arr = Application.Transpose(Array(d.keys, d.items))
    
17.   ReDim brr(1 To Application.Ceiling(UBound(arr) / (24 * 4), 1) * 24, 1 To 8)
    
18.   k = 1
    
19.   m = 1
    
20.   n = 1
    
21.   For i = 1 To UBound(arr)
    
22.     brr(k + m - 1, n) = arr(i, 1)
    
23.     brr(k + m - 1, n + 1) = arr(i, 2)
    
24.     m = m + 1
    
25.     If m > 24 Then
    
26.       n = n + 2
    
27.       m = 1
    
28.       If n > 7 Then
    
29.         k = k + 24
    
30.         m = 1
    
31.         n = 1
    
32.       End If
    
33.     End If
    
34.   Next
    
35.   With Worksheets("生成表")
    
36.     .Range("a4:h" & .Rows.Count).ClearContents
    
37.     .Range("a:a,c:c,e:e,g:g").NumberFormatLocal = "0.00"
    
38.     .Range("a4").Resize(UBound(brr), UBound(brr, 2)) = brr
    
39.   End With
    
40. End Sub
    

复制代码

chxw68

详见附件。