规则区域通过字典或数组的方式向不规则区域赋值

6739912

规则区域向规则区域赋值好解决，向不规则区域赋值如何解决呢？有大神帮忙吗？

两表中的字段名相同

shiruiqiang

那就是手工活，先判断在单元格的位置。
或者把单元格要写的位置写入数组

cnmlgb9998

用邮件合并功能啊！大哥

6739912

cnmlgb9998 发表于 2024-3-25 17:37
用邮件合并功能啊！大哥

想用代码实现

liulang0808

   
Private Sub ComboBox1_Change()
    If Len(ComboBox1.Text) > 0 Then
        str1 = Left(ComboBox1.Text, 6)
        Set rng = Sheets("员工基本资料").Columns(1).Find(str1, lookat:=xlWhole)
        If rng Is Nothing Then
            MsgBox "对应的工号不存在"
            Exit Sub
        End If
        arr = Sheets("员工基本资料").UsedRange
        Application.ScreenUpdating = False
        rx = rng.Row
        For Each c In Array(2, 5, 7)
            For R = 3 To 29
                If Len(Cells(R, c)) > 0 Then
                    Cells(R, c + 1) = ""
                    For j = 1 To UBound(arr, 2)
                        If arr(1, j) = Cells(R, c) Then
                            Cells(R, c + 1) = arr(rx, j)
                            Exit For
                        End If
                    Next j
                End If
            Next R
        Next c
        Application.ScreenUpdating = True
    End If
End Sub

liulang0808

附件内容供参考。。。。。