EXCEL VBA QUESTIONS How do I get the numeric values in a cell and write them into two new columns?

Enter the formula in cell u13:

lookup(,-left(e13,row($1:$3))) in cell v13 to enter the formula:

lookup(,-mid(e13,find("<",e13)+1,row($1:$3)))

Copying the two formulas down will do the trick.

public sub aaa()

dim sh as worksheet

set sh = activesheet

ist = 13: 'Start line.

j = asc("e") -64 'The column letters of the wit.

oj = asc("u") -64 'Column letters of inclination.

for i = ist to 20013 'Terminate the line.

s = , j).value

if s = "" then exit subschar = "°"

pos = instr(s, schar), oj).value = left(s, pos - 1)tmps = right(s, len(s) -pos - 1)tmps = left(tmps, len(tmps) -1), oj + 1).value = tmpsnextend sub

u13 cell:

left(e13,find("°", e13)-1)v13 cell:

mid(e13,find("∠",e13)+1,2) There is a small problem with this method, if the second angle is greater than or equal to 100 degrees, only 2 bits can be displayed, then you need to change the formula of v13 cells to:

mid(e13,find("∠",e13)+1,3)

What the formula can solve has to be VBA

range("a65536").end(xlup).offset(1)'a has the data listed next to the last cell.

range("a65536").end(xlup)'Refers to the last cell with data in column A.

If you want to write the last next line, use the first one.

To replace the last cell with data, use the latter one.

For example, assuming that the cell is a1, use split to split the content (string) of a1 into an array of three elements.

sub abc()

s = range("a1").text

v = split(s, chr(10))end sub

sheets("Table name").cells (row number, column number) to get the value of the cell, where the row and column numbers are all numbers.

function bbb(b)

dim a()

b = b & ","

i = 1j = -1

ks = 1

js = 1

ifg = false

do while len(b) >= i

if mid(b, i, 1) = "," thenj = j + 1

redim preserve a(j)

ks = js

js = i + 1

if not ifg then

a(j) = mid(b, ks, js - ks - 1)else

m = mid(b, ks, js - ks)j = j + js - ks + 1

redim preserve a(j)

for m = j + ks - js - 1 to j - 1a(m) = a(m - 1) +1

nextend if

elseif mid(b, i, 1) = "-" thenj = j + 1

redim preserve a(j)

ks = js

js = i + 1

a(j) = mid(b, ks, js - ks - 1)ifg = true

end if

i = i + 1loop

for i = 0 to ubound(a)c = c & " " & a(i)

bbb = c

nextend function

I think it will work, right? It's called in **.

For example, 1) = bbb(, 2)).

The raw data is in , 2), and the data is output in 1).

Is it written like this in the VB Dev Tools or in VBA?

I'm sorry, I can't help you.

I don't quite understand what you're trying to say, is it a multiplication of words and values or??

Where do your values fit in your text?

Send an email to Alibaba

1. First open an excel file and enter a simple **, such as the student's height**, as shown in the figure below.

2. Then, enter the description text of the one-dimensional array in **, left-click the [Development Tools] menu label, in the VBA control drop-down menu, and select the button control, as shown in the figure below.

3. Then, draw out the button control in **, and modify the control name, such as using the name of a one-dimensional array, as shown in the following figure.

4. Next, select the button control, and left-click the [View**] button, as shown in the figure below.

5. Then, enter the VBA statement in the ** window, such as the statement that defines the one-dimensional array, and assign the value to the one-dimensional array, as shown in the following figure.

6. Then, in the ** window, enter the VBA statement of one-dimensional array to assign values to cells, as shown in the following figure.

7. Finally, on the design window, click the button with the left mouse, and you can see the one-dimensional array in **, through the VBA program, and output to the height cell, and display the data, as shown in the figure below.

Use the redim dynamic array.

sub test1()

dim a() as integer, irow as long, i as integer

irow = cells(, 1).end(xlup).rowredim a(irow - 1)

for i = 1 to ubound(a)a(i - 1) = range("a" & i)next

end sub

** and notes below:

sub main()

x = range("a65536").end(3).row'The value of x is the last non-empty cell row number in column a.

redim a(x)'Redefine array a so that it is capped at xfor i = 1 to x'i and loop down from a1 until the last row, a(i - 1) = range()."a" & i)'Store the cell values in column A in the array.

nextend sub

This is done directly using WorksheetFunction.

dim arr

arr = "a2:b14")）

arr is a two-dimensional array arr(1 to 2, 1 to 13) msgbox arr(2,1).

for i=1 to range("a65536").end(xlup).row-x

x represents the row number of the starting data cell of column a-1

This can be solved with a VBA.