1樓：草原上之狼
通過vba將一個excel單元格的內容讀取到另一個單元格的操作步驟如下：
1，在vba中建立一個錄製介面，設定輸入按鈕，設定輸入按鈕**實現輸入功能，雙擊輸入按鈕，輸入**進入**視窗。
3，設定輸入單元格中顯示的內容的文字格式，大小，字型，對齊方式等。使用字型設定文字大小並根據輸入自動調整單元格寬度。
4，設定取消按鈕**，隱藏**，當我們按下取消按鈕時，它會隱藏輸入**，然後建立一個**設定為主介面，將工作表名稱設定為主介面。
5，在開發工具中插入命令按鈕，將命令按鈕屬性中的標題更改為要顯示的文字，然後輸入**將表單呼叫到按鈕，如圖所示，效果是單擊按鈕時您可以呼叫建立的輸入介面。
6，此時，當我們單擊登入按鈕時，將彈出設定表單。然後我們在表單的文字框中輸入相應的內容，內容將根據我們設定的位置顯示在相應的單元格中。
2樓：長髮和尚
excel用vba實現：提取若干單元格內容拼湊成字串，再用這個字串重新命名工作表名稱
3樓：匿名使用者
？？？？？？ sheets("123").name = [a1] & "a" & [b1] & "b" & [c1] & "c" ？？？？？
vba textbox提取單元格中某兩個指定字元之間的字元
vba如何提取單元格內每一行內容或如何獲取單元格換行字元 60
4樓：匿名使用者
請測試下面的**，思路是先將a列的內容連線在一起，然後用split根據改行拆分成各行寫入b列。
sub 改行拆分()
dim str as string
dim i as integer, j as integer, k as integer, ar, arr
for i = activesheet.usedrange.rows.count to 1 step -1
if len(cells(i, 1)) > 0 then
str = cells(i, 1).text & chr(10) & str
end if
next i
ar = split(str, chr(10))
redim arr(1 to ubound(ar) + 1, 1 to 1)
for i = 0 to ubound(ar)
k = k + 1
arr(k, 1) = ar(i)
next
with cells(1, 2)
.entirecolumn.numberformatlocal = "@"
.resize(k) = arr
end with
end sub
5樓：魚木混豬喲
步驟如下：
1.將a1按換行符分開到b之後的列中：
2.alt+f11，輸入如下**：
3.f5執行**，結果如下：
6樓：匿名使用者
splitdata = split(range("g3").value, chr(10)) 用 split 來提取字串
在excel中用vba實現將一個**的字串格式複製到另一個**中？（詳細過程） 100
7樓：陽光上的橋
可以複製整個工作表，然後刪除公式、數值部分，**為：
activesheet.copy '複製當前工作表到新建工作簿
activesheet.cells.specialcells(xlcelltypeconstants, 21).clearcontents '清除非文字單元格
excel用vba提取字串
8樓：築夢
可以使用函式提取一個字串中的一段字元。 mid 用來返回文字字串中從指定位置開始的特定數目的字元,該數目由使用者指定， 函式 mid 始終將每個字元。
應該用到三個字串函式：left、right、midleft函式用法：left（要提取字元所在單元格,從左側開始提取的個數)。
right函式用法：right(要提取字元所在單元格,從右側開始提取的個數）。
mid函式用法：mid(要提取字元所在單元格,開始位置，提取個數）。
9樓：匿名使用者
mid(源字串，起始位號x，提取長度m)；返回第x位起m個字元。要求：起始位號+提取長度<=源字串長度+1
left(源字串，左側擷取長度x)；返回左側x個字元right(源字串，右側擷取長度y)；返回右側y個字元instr(源字串，待查詢子字串u)；返回子字串首字元在源字串中的起始位號
chr(65)；返回字母a
......
10樓：匿名使用者
提取怎麼樣的字串，儲存到**？請描述清楚。
excel vba 如何提取單元格中的部分字串賦值給某個變數，如單元格中有su32p，我要獲得su32
11樓：揚業
不太清楚你是想要去掉特定的字元，還是要去掉數字後面的字元。
這兩種都能實現，而且只用公式都能實現，更不用說用vba**了。
但你最好還是把問題表述更準確一點。
12樓：魚木混豬喲
步驟如下：
1.a1中有如下字串
2.alt+f11，開啟vbe，輸入如下**3.字串部分就留賦予變數s了
excel中用vba提取某一個單元格內包含某關鍵字串的一行內容前的整數。
13樓：匿名使用者
答：右鍵工作表標籤，選擇檢視**，複製下面**進去。然後可以在b列輸入關鍵字，就會得到結果。
private sub worksheet_change(byval target as range)
dim cell as range
dim tempstr as string
on error resume next
if target.column = 2 then
set cell = cells(target.cells(1, 1).row, "a")
tempstr = left(cell, instr(1, cell, target) - 1)
target.offset(0, 1) = replace(replace(mid(tempstr, instrrev(tempstr, chr(10)), len(tempstr)), "=", ""), " ", "")
end if
end sub
14樓：平陽虎
也不知道現在的90後怎麼搞的，讓我們現在真難遇到像以上提問一樣、條件和問題都描述得具體、詳細的優秀的提問了！
vba怎樣把單元格中的值賦給另單元格
excel vba在程式設計時，經常會遇到取單元格值，並賦值，一般是兩種語句 1 range a1 這樣的，直接使用引用。賦值即可使用range a1 range b1 2 cells 行號，列號 這樣的，使用rc引用方式，賦值可使用cells 1,1 cells 1,2 wlorkbooks bo...
VBA單元格賦值問題
sub sheetcopy dim i as integer dim j as integer dim k as integer for i 1 to 100 for j 1 to 9 sheet2.cells i,j value sheet1.cells i,j value next j next...
vba怎麼選擇sheet2的單元格
worksheets 2 select 選擇 複製sheet2 activesheet.range a3 c3 select 選擇sheet2的a3到c3三個單元格 excel vba裡如何指定特定表 如sheet2 裡面的單元格如cell 3,1 是cells i 2,1 不是cell sheet...