※ 引述《Ibrahimovic (伊布)》之铭言：
: ※ [本文转录自 Office 看板 #1RJC-Wmh ]
: 作者: Ibrahimovic (伊布) 看板: Office
: 标题: [算表] “转换成数字”的程式码
: 时间: Tue Jul 17 01:02:21 2018
: 软件: Excel
: 版本: 2016
: https://i.imgur.com/qlIoiTm.jpg
: 如上图
: 用录制宏时无法录出来
: 请问转换成数字这个功能，在VBA要如何写出来？
For A = 2 To 18
For B = 1 To 6
Cells(A, B + 10) = Val(Cells(A, B))
Next B
Next A