求教大神 横向粘贴问题

[DL_Zora]

根据Sheet1中B列日期的对应月份，把A列对应的数字根据相应的月份横向粘贴到Sheet2中，Sheet2中A列是Sheet1中A列可是单元格粘贴过来的

[不懂别说哎]

看我发的VB EXCEL基础，根据那个操作两个表应该没有问题

[jieru_liu]

你的问题没描述清楚。

是先筛选“D列”中等于1的数据，
然后把“B列”的数据 根据《“A列”的项目名和“C列”的月份》对应填到 sheet2 中吗

[jieru_liu]

Sub macro()
    
    Sheets(1).Select
    
    Dim rng As Range
    Set rng = Range("a1", Cells(Rows.Count, "d").End(xlUp))
    rng.AutoFilter Field:=4, Criteria1:="=1"
    
    Intersect(Range("a:a"), rng.SpecialCells(xlCellTypeVisible)).Copy Sheets(2).[a1]
    
    Dim ret_rng As Range
    Set ret_rng = Intersect(Range("c:c"), rng.SpecialCells(xlCellTypeVisible))
    
    Dim m_rng As Range
    Set m_rng = Sheets(2).[b1:m1]
    
    Dim i%, m%, v%
    Dim rg As Range
    i = 1
    For Each rg In ret_rng
    'For i = 2 To ret_rng.Count
        If rg.Row = 1 Then GoTo 100
        m = Month(rg)
        i = i + 1
        
        v = rg(1, 0)
        
        Select Case m
            Case 9
                Sheets(2).Cells(i, 2) = v
            Case 10
                Sheets(2).Cells(i, 3) = v
            Case 11
                Sheets(2).Cells(i, 4) = v
            Case 12
                Sheets(2).Cells(i, 5) = v
                
            Case Else
                Sheets(2).Cells(i, m + 5) = v
        End Select
100:
    Next
    
End Sub