我现在有2列数据，第一列中有相同的数据，根据第一列相同的，自动填充对应的第二列，用VBA写一段代码

您可以使用 VBA 中的循环语句和条件语句来实现这个功能。示例代码如下：

Sub FillData()
    Dim i, j As Integer
    Dim lastRow As Long
    
    '确定数据的最后一行
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    '循环整个数据区域
    For i = 2 To lastRow
        '如果第一列的值为空，跳过
        If Cells(i, 1) = "" Then
            GoTo Nexti
        End If
        '循环查找相同的数据
        For j = 2 To lastRow
            '如果找到相同的数据
            If Cells(j, 1) = Cells(i, 1) And j <> i Then
                '填充第二列
                Cells(i, 2) = Cells(j, 2)
                GoTo Nexti
            End If
        Next j
        Nexti:
    Next i
End Sub

这段代码中，我们使用了两个循环来遍历整个数据区域，使用了一个条件语句来检查第一列是否有相同的数据，如果找到相同的数据就在第二列填充相同数据对应的第二列中的数据。

相关问题

将一个6*5的零矩阵分成6*2和6*3两部分，第一部分循环对角线填充1，在第一次循环时，对应第二部分第一列填充为1，第二次循环时填充第二列对应部分，第三次循环填充第二部分第三列对应部分

将一个6x5的全零矩阵分割成6x2和6x3的部分，首先我们需要确定如何划分。因为6可以被2整除，也可以被3整除，所以我们可以从左上到右下的顺序将矩阵分为两个部分：

- 第一部分(6x2)：包含前两行和一列的数据。
- 第二部分(6x3)：包含剩余的四行和剩下的三列数据。

对于填充规则，我们将按照以下步骤操作：

1. 循环对角线填充第一部分（6x2）的1：
- 从左上角开始，每次向下走一行，同时向右走一列，直到到达矩阵边缘。这样得到的对角线上将是1的序列。

2. 第一次循环后，给第二部分的第一列填充1：
- 对应于第一部分填充的1的下一行位置，给第二部分的第一列相应位置填充1。这样保证了两个部分有连续的1连接。

3. 第二次和第三次循环填充第二部分的其余列：
- 第二次循环，保持在同一行，但向右移动到第二列，填充1。
- 第三次循环，再向右移动到第三列，继续填充1。

最后，你会得到这样的结构：
第一部分（6x2）：

1 0 | 0 1 | 0 0
0 1 | 0 0 | 0 0
0 0 | 0 0 | 0 0

第二部分（6x3）：

0 0 | 0 0 | 1 0 0
0 0 | 1 0 | 0 1 0
0 0 | 0 1 | 0 0 1

matlab中两个4*2的零矩阵，第一个矩阵按对角线填充1，此时第二个矩阵在第一列按行填充1，循环至第三行，当行数大于列数时，返回到第三行第一列继续填充，第二个矩阵从第二列对应行继续填充1，以此类推

在MATLAB中，你可以通过循环结构和数组操作来创建这样的矩阵。首先，我们创建两个4x2的全零矩阵`A`和`B`：

A = zeros(4); % 创建一个4x2的全零矩阵
B = zeros(4, 2); % 另一个4x2的全零矩阵

% 对于A，对角线填充1
for i = 1:4
    A(i,i) = 1; % 对角线上每个元素赋值为1
end

% 对于B，先在第一列逐行填充1，然后按照循环规则填充第二列
row = 1;
while row <= size(B, 1)
    B(row,:) = [1; 0]; % 在第一列填充1，如果到达最后一行，进入下一行循环
    if row < size(B, 1)
        row = mod(row + 1, size(B, 2)); % 如果行数小于列数，跳转到下一行，并根据剩余列数循环
    else
        break; % 如果已经到了最后一行且所有列都填满，跳出循环
    end
end

现在，`A`矩阵是一个4x2的矩阵，其对角线为1，而`B`矩阵的第一列是1，后续每一行会从上一行的最后一列开始递补1，直到填满整个矩阵。