excel中使用VBA將單元格的內容轉為多行

'功能實現：將sheet1中a1單元格的值拆分後 顯示到sheet2的a列中

private sub worksheet_change(byval target as range)
'只有a1單元格的值改變才會執行
if target.address = "$a$1" then
'定義變數
dim x as integer
dim sr as string
'獲取a1單元格的值,並拆分成陣列
sr = cells(1, 1).value
arry = split(sr, ";")
x = 0
'先清空sheet2對應資料，從a1開始往下清空
do while x < 100
x = x + 1
sheet2.cells(x, 1).value = null
loop
x = 0
'再為sheet2重新賦值，從a1開始往下賦值
for n = lbound(arry) to ubound(arry)
x = x + 1
sheet2.cells(x, 1).value = arry(n)
next n
end if
end sub

VBA 定位單元格

在excel自帶功能中，即帶有根據特殊格式定位的功能 開始 查詢與選擇 定位條件 可以根據需要定位查詢 標註 常量 公式 空值 可見單元格 等。該函式和下面excel面板功能相通 其使用格式為 expression.specialcells type,value 下表是value可選的引數 選擇有公...

VBA 快速填充單元格

在excle中，需要填充單元格，直接下拉，然後即可填充，但是使用vba 又該如何實現這個呢？區域 public sub 快速填充 dim myrange as range cells.clear 清除所有 資料 set myrange range a1 a12 with myrange.cells ...

Excel 通過VBA高亮選擇單元格的行列

wps有乙個比較有意思的功能叫十字游標，就是可以亮顯選擇單元格的行列，資料量比較多的時候可以方便檢視資料，可惜excel原生並沒有類似的功能，網上搜尋了一下，發現可以通過vba完成類似的功能，便嘗試了一下。思路是通過vba獲得選擇區域的行與列，在行列中新增條件格式，通過條件格式改變行與列單元格的填充...