序号如何用公式直接导过来

woaianan

欠费明细工作表中的序号如何直接直接导到缴费通知单工作区的标黄序号里

ww87725244

手动输吧，你后面的数据都是根据序号来的

小凡、、、

使用公式然后格式刷刷下去？

jerrike

A3

1. =(ROW()+2)/5

复制代码

uneye2

选择A1:I5
下拉

邹永鸿

1. =CHOOSE(MOD(ROW(A4),4)+1,欠费明细!A$1,OFFSET(欠费明细!A$1,ROUNDUP(ROW(A1)/4,0),),"缴费提醒：请业主收到本通知单后在七天内办理缴费，以免因欠费影响用水。","")

复制代码

leepoison

Sub CopyAndTransferData()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Set wsSource = ThisWorkbook.Sheets("欠费明细")
    Set wsDest = ThisWorkbook.Sheets("缴费通知单")
   
    Dim lastRow As Long
    Dim i As Long
    Dim n As Long
    Dim copyCount As Long
   
    ' 计算SHEET1中A2以下的有内容的行数
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    copyCount = lastRow - 1 ' 从A2开始计算
   
    ' 复制SHEET2的1到5行，复制次数为copyCount
    For i = 1 To copyCount
        wsDest.Rows("1:5").Copy Destination:=wsDest.Rows(5 * i + 1)
    Next i
   
    ' 将SHEET1的第二行开始的内容录入SHEET2的3, 8, 13, ..., 3 + 5n
    For i = 2 To lastRow
        wsDest.Cells(3 + 5 * (i - 2), 1).Value = wsSource.Cells(i, 1).Value ' 修改列号以适应需要
    Next i
End Sub

你是那块小饼干

用邮件合并或者易用宝