Cacher is the code snippet organizer for pro developers

function iteration_fill_activesh(rb,jref,jtgt,d1, eu1,_
optional shref = "", optional shtgt = "")
	if shref = then shref = activesheet.name
	if shtgt = then shtgt = activesheet.name
	    '-----
    jref_s = convert1(jref)
    jtgt_s = convert1(jtgt)
	'--- get row_end
    re = Sheets(shref).Range(jref_s & rb & ":" & jref_s & eu1).Find(Cells(rb, jref), , , xlWhole, , xlPrevious).row
    '---
    str_fill = d1.Item(Cells(rb, jref).Value) '必要用.value，否则字典不识别
    If Str1 <> "" Then
        Dim arr1()
        ReDim arr1(1 To r_e - r_b + 1, 1 To 1)
        For ii = 1 To UBound(arr1)
            arr1(ii, 1) = str_fill
        Next
        Sheets(shtgt).Range(jtgt_s & rb & ":" & jtgt_s & re) = arr1
        'Debug.Print rb & " " & str_fill
    End If
    '---
    If Cells(re + 1, jref) <> "" Then
        fill_pjt1 re + 1, jref, j_tgt,  d1,eu1
    End If
end function



function Iteration_move()
	
end sub