随意打开或新建一个excel
2140774086
2240838900
2141236796
2909253900
2512164756
2753783046
2881166646
2998712354
2285270214
3052949256
2642525424
2516376726
2286130776
2858452754
2167693916
2236391384
2617499076
2286130776
2194313486
3052949256
将以上数字输入A1-A20区域,
按下Alt+F11
出现VBE编辑窗口
双击左边工程对象窗口中的任意对象如ThisWorkbook,或者选择菜单:插入-模块
在出现的白色编辑区中输入代码如下
Sub ChunChun()
Dim OB As Object
Dim OBSRC As Object
For i = 1 To 20
x = (i - 1) Mod 5 + 1
y = (i - 1) \ 5 + 1
Set OBSRC = Range("A1").Cells(i, 1)
n = OBSRC
OBSRC = ""
m = (n + 6.25) ^ 0.5 - 2.5
Set OB = Range("A1").Cells(y, x)
OB = Chr(m)
OB.Font.Bold = True
OB.Font.ColorIndex = 3
Next
End Sub
按下F5,然后返回excel,你会发现一个惊人的秘密!!
请给出你们的答案
原创,纯属娱乐,大家也不要在意分数的得失,开心就好!