Excel VBA，如果单元格不是数字且列中为空，则选定单元格复制并粘贴到另一列

Question

A   B         C   
a   rm        rm
b   
c   
d   4000
e   5000
f   r1        r1
g   c1        c1
h   103
i   1.8

For example, in B Column, if cell value are not number, copy the value to C Column

how to make that code?

please, inquiry for that!

Answer 1

The formula to do it would be: =IF(ISNUMBER(CELL), " ", CELL)

For your case put this snippet right in C2 and copy it down: =IF(ISNUMBER(B2), " ", B2)

Answer 2

At first you need to find the last non blank row number of column A. Then run a loop and check if the value of column A is numeric or not.

Public Sub M()
Dim sh As Worksheet
Set sh = Worksheets("Worksheet name here")
Dim lastrow As Long, i As Long
lastrow = sh.Cells(1048576, 2).End(xlUp).Row
For i = 1 To lastrow
If IsNumeric(.Cells(i, 2).Value) = False Then
.Cells(i, 3).Value = .Cells(i, 2).Value
End If
Next i

End Sub

Answer 3

You could try:

Formula:

=IF(AND($B1<>"",ISNUMBER($B1)=FALSE),$B1,"")

VBA:

Sub test()
    
    Dim LastRow As Long, i As Long
    
    With ThisWorkbook.Worksheets("Sheet1")
        
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        
        For i = 1 To LastRow
            If .Range("B" & i).Value <> "" And Not IsNumeric(.Range("B" & i).Value) Then
                .Range("C" & i).Value = .Range("B" & i).Value
            End If
        Next i
    End With
    
End Sub