excel 取列中每个单元格的反对数

wztqucjr 于 2023-03-09 发布在其他

关注(0)|答案(1)|浏览(175)

我有一个以日志格式显示的数据表，我需要能够更改它才能上载它。我似乎一直遇到与单元格内容被读取为字符串而不是双精度值相关的错误。
我尝试了下面代码的几种变体（使用^和power）。我能得到的最接近的变体是用公式本身而不是答案填充每个单元格。变量c正确加载，其他公式似乎也能工作。

Dim c As Range

Dim Lastrow As Long

Lastrow = ActiveWorkbook.Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    For Each c In Range("A2 :A" & Lastrow)
   c = c.Power(10, c)
    Next
End Sub

或

Function Antilog(rwDest As Range)
Dim c As Range
Dim Lastrow As Long
Lastrow = ActiveWorkbook.Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    For Each c In Range("A2" & Lastrow)
         c.Value = "=10^ c.Value"
    Next
End Function

excel

来源：https://stackoverflow.com/questions/75675547/taking-the-antilog-of-every-cell-in-a-column

1条答案

按热度按时间

kcugc4gi1#

使用`Worksheet.Evaluate`避免循环

Sub AntiLog()
        
    ' Reference the workbook.
    Dim wb As Workbook: Set wb = ActiveWorkbook
    ' If it's the workbook containing this code, use 'ThisWorkbook' instead.
    
    ' Reference the single-column range.
    Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
    Dim LastRow As Long: LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim rg As Range: Set rg = ws.Range("A2:A" & LastRow)
    
    ' Use 'Worksheet.Evaluate'...
    rg.Value = ws.Evaluate("10^" & rg.Address)
    'rg.Value = ws.Evaluate("IFERROR(10^" & rg.Address & ","""")")
 
End Sub

赞(0）回复(0）举报 2023-03-09

我来回答

excel 取列中每个单元格的反对数

1条答案

使用`Worksheet.Evaluate`避免循环

相关问题

热门标签

最新问答

excel 取列中每个单元格的反对数

1条答案

使用Worksheet.Evaluate避免循环

相关问题

热门标签

最新问答

使用`Worksheet.Evaluate`避免循环