创建Excel工作表VA代码

Question

我正在尝试创建一个宏，我想在其中删除并剪切一些值，然后将这些值粘贴到下一个单元格中。
e.g。

 A                                    
----                                  
apple, fruit

宏执行后

 A          B                               
----       --- 
apple      fruit

如何为冗长的列表制作这样的宏？

Answer 1

你可以试试这个：

Sub cutAndPaste()
'
' cutAndPaste Macro
'
'
Dim Column_index As Integer
Dim Row_index As Integer
Column_index = 5
Row_index = 7

Cells(Row_index + 1, Column_index).Value = Cells(Row_index, Column_index).Value
Cells(Row_index + 1, Column_index + 1).Value = Cells(Row_index, Column_index + 1).Value
Cells(Row_index, Column_index).Value = ""
Cells(Row_index, Column_index + 1).Value = ""

End Sub

我认为它有效，希望有所帮助。

Answer 2

如果您想在Excel中的一列中创建一些列，请按照以下步骤操作：

首先选择要拆分的所有单元格。

  

在Data标签中Data Tools部分列出的工具之一是text to Columns。

选择后，将显示一个向导窗口。

选择Delimited选项和Next 选择Comma检查，然后选择Finish。

---

如果您需要宏，请使用Macro Recorder。