VBA给数组所有项复制

可以使用 For 循环遍历数组，并使用赋值语句将数组元素复制到另一个数组中。例如：

Dim arr1(4) As Integer ' 定义数组1
Dim arr2(4) As Integer ' 定义数组2
Dim i As Integer

' 给数组1赋值
arr1(0) = 1
arr1(1) = 2
arr1(2) = 3
arr1(3) = 4
arr1(4) = 5

' 复制数组1的所有项到数组2
For i = 0 To 4
    arr2(i) = arr1(i)
Next i

上述代码将数组1中的所有元素复制到数组2中，使得数组2与数组1一样。

相关问题

vba中取出相同项并建立新表

在 VBA 中，可以使用循环语句和数组来实现取出相同项并建立新表的操作。

步骤如下：

1. 首先，在工作表中选择需要取出相同项的列。

2. 在 VBA 编辑器中，编写代码，将数据存储到数组中。

3. 对数组中的数据进行遍历，取出相同项并存储到另一个数组中。

4. 将新数组中的数据复制到新工作表中，这就是新建立的表。

以下是代码示例：

Sub GetUniqueValues()

Dim arrData() As Variant
Dim arrUnique() As Variant
Dim i As Long, j As Long, k As Long

'将数据存储到数组中
arrData = Range("A1:A10").Value

'遍历数组，取出相同项
ReDim arrUnique(1 To 1)
arrUnique(1) = arrData(1, 1)
For i = 2 To UBound(arrData, 1)
    For j = 1 To UBound(arrUnique, 1)
        If arrData(i, 1) = arrUnique(j) Then
            Exit For
        End If
    Next j
    If j = UBound(arrUnique, 1) + 1 Then
        ReDim Preserve arrUnique(1 To UBound(arrUnique, 1) + 1)
        arrUnique(UBound(arrUnique, 1)) = arrData(i, 1)
    End If
Next i

'将新数组中的数据复制到新工作表中
Worksheets.Add
Range("A1").Resize(UBound(arrUnique, 1), 1).Value = Application.Transpose(arrUnique)

End Sub

以上代码实现了从工作表 A1:A10 中取出不同项并建立新表的功能。

VBA复制指定字符之后的文本

在VBA中，可以使用Replace函数来替换文本中的指定字符。Replace函数的语法为Replace(expression, find, replace, \[start, \[count, \[compare\]\]\])。其中，expression表示需要替换的文本，find表示需要替换的字符，replace表示替换成的字符，start表示在expression中搜索的开始位置，默认为1，count表示替换的次数，默认为-1（替换所有匹配项），compare表示字符串的比较方式，默认为vbBinaryCompare（区分大小写）。

下面是一个示例代码，演示如何复制指定字符之后的文本：

Dim originalText As String
Dim newText As String

originalText = "Hello World"
newText = Replace(originalText, "Hello", "")

MsgBox newText ' 输出 " World"

在这个示例中，我们将原始文本中的"Hello"替换为空字符串，从而实现复制指定字符之后的文本。
#### 引用[.reference_title]
- *1* [VBA将字符串分割、存入数组、写入文件并保存](https://blog.csdn.net/qq_51649461/article/details/125189277)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* *3* [Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)](https://blog.csdn.net/ngbshzhn/article/details/115718198)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]