返回列表 上一主題 發帖

[發問] 請問如何將偶數列的文字轉成數值(已有基本語法 但不會組合)

回復 19# HCG10G8bear
以你的資料特性用特殊儲存格可避免迴圈
  1. Sub ex()
  2. With Sheets("Sheet1")
  3. .Columns("B:B").SpecialCells(xlCellTypeConstants, 1).EntireRow.NumberFormat = "#"  '改變儲存格格式
  4.    With .UsedRange
  5.    .Value = .Value  '重新填入資料
  6.    End With
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題