EXCEL VBA 問題 如何獲取單元格中的數值並將它們寫入兩列新列？

在單元格 u13 中輸入公式：

lookup（，-left（e13，row（$1：$3））） 在單元格 v13 中輸入公式：

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

將這兩個公式複製下來就可以了。

public sub aaa()

dim sh as worksheet

set sh = activesheet

ist = 13: '起跑線。

j = asc("e") -64 '機智的列字母。

oj = asc("u") -64 '傾斜的列字母。

for i = ist to 20013 '終止線路。

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 細胞：

left(e13,find("°"， E13）-1）V13 電池：

mid(e13,find("∠"，e13）+1,2） 這種方法有乙個小問題，如果第二個角度大於或等於 100 度，只能顯示 2 位，那麼需要將 v13 單元格的公式更改為：

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

公式可以解決的必須是VBA

range("a65536").end(xlup).offset（1）'a 將資料列在最後乙個單元格旁邊。

range("a65536").end(xlup)'指 A 列中包含資料的最後乙個單元格。

如果要編寫最後一行，請使用第一行。

若要將最後乙個單元格替換為 data，請使用後者。

例如，假設單元格是 a1，請使用 split 將 a1 的內容（字串）拆分為三個元素的陣列。

sub abc()

s = range("a1").text

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

sheets("表名").單元格（行號、列號）獲取單元格的值，其中行號和列號都是數字。

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

我認為它會起作用，對吧？ 它被呼叫 **。

例如，1） = bbb（， 2））。

原始資料在 ， 2） 中，資料輸出在 1） 中。

它是在 VB 開發工具中還是在 VBA 中這樣寫的？

對不起，我幫不了你。

我不太明白你想說什麼，是單詞和價值觀的乘法還是？？

你的價值觀在你的文字中處於什麼位置？

傳送電子郵件到 Alibaba

1.首先開啟乙個excel檔案，輸入乙個簡單的**，比如學生的身高**，如下圖所示。

2.然後，在**中輸入一維陣列的描述文字，左鍵點選【開發工具】選單標籤，在VBA控制項下拉選單中，選擇按鈕控制項，如下圖所示。

3.然後，畫出**中的按鈕控制項，並修改控制項名稱，例如使用一維陣列的名稱，如下圖所示。

4. 接下來，選擇按鈕控制項，左鍵點選【檢視**】按鈕，如下圖所示。

5.然後，在**視窗中輸入VBA語句，例如定義一維陣列的語句，並將值分配給一維陣列，如下圖所示。

6.然後，在**視窗中，輸入一維陣列的VBA語句以將值分配給單元格，如下圖所示。

7.最後，在設計視窗中，用滑鼠左鍵點選按鈕，可以看到**中的一維陣列，通過VBA程式，輸出到高度單元格，並顯示資料，如下圖所示。

使用 redim 動態陣列。

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

** 和以下注釋：

sub main()

x = range("a65536").end(3).row'x 的值是 a 列中最後乙個非空單元格行號。

redim a(x)'重新定義陣列 a，使其上限為 xfor i = 1 到 x'i，然後從 a1 向下迴圈，直到最後一行 a（i - 1） = range（）。"a" & i)'將單元格值儲存在陣列的 A 列中。

nextend sub

這是直接使用 WorksheetFunction 完成的。

dim arr

arr = "a2:b14")）

arr 是乙個二維陣列 arr（1 to 2， 1 to 13） msgbox arr（2,1）。

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

x 表示 A-1 列的起始資料單元格的行號

這可以通過VBA解決。