EXCEL中帶格式復制，涉及VBA開發

第壹步先建壹個窗口如圖

其中要引用壹個控件：

然後在建壹個窗口，這個壹般人都會吧

然後在確定按鈕裏寫下面代碼，很簡單的

Private Sub CommandButton1_Click()

Dim str As String

str = ""

i = 0

sheetname1 = Split(RefEdit1.Value, "!")(0)

rangename1 = Split(RefEdit1.Value, "!")(1)

sheetname2 = Split(RefEdit2.Value, "!")(0)

rangename2 = Split(RefEdit2.Value, "!")(1)

For Each cel In ThisWorkbook.Sheets(sheetname1).Range(rangename1)

i = i + 1

If i = 1 Then

str = cel.Value

Else

str = str & "," & cel.Value

End If

Next

ThisWorkbook.Sheets(sheetname2).Range(rangename2) = str

End Sub

最後是調用這個窗口了

在thisworkbook 中寫下面代碼

Sub 復制()

UserForm1.Show

End Sub

效果如圖

好吧這裏代碼完事，最後在菜單裏加壹個按鈕，這個不難了。

回到EXCELL中，在菜單中自己定義功能區中把宏“復制”找到，然後導入在在妳的菜單選項卡的新建組中，當然圖標名字都可以改。

最後就是用了，這個是效果

我把表附加上了，妳自己下載看

上一篇:雲計算門戶，P.CN雲計算平臺是怎樣的壹個網站，普通網民用這個平臺有哪些好處？錢途發展如何，謝謝。

下一篇:請用MATLAB編壹個關於從1加到n的等差數列的求和的小程序，謝謝啦，急用哦