如何将整个Excel工作表从十进制转换为二进制值？

Question

我有一个包含25000条记录的数据集，每个索引有10个特征，所有这些记录都是十进制的，我想将它转换为二进制值，我在Microsoft Excel中尝试了DEC2BIN函数，我试图拖动函数遍布整个工作表，但它总是给我#Value或#REF。有什么想法，谢谢。

Answer 1

选择要转换的单元格并运行此短宏：

Sub WaitaBit()
    Dim r As Range, v As Variant
    For Each r In Selection
        v = r.Value
        If IsNumeric(v) And v <> "" Then
            s = Application.WorksheetFunction.Dec2Bin(v, 10)
            Do While Left(s, 1) = "0"
                s = Mid(s, 2)
            Loop
            r.Value = "'" & s
        End If
    Next r
End Sub

所以：

将成为：

这将处理大多数“小”整数。