Question

我有一个代码来复制31个excel文件中的数据并将其合并到一个文件中，我做了这个工作我只有一个问题;我从每个源文件中复制一个单元格并将其放在目标文件中的所有记录中（31中的每个文件都有不同的值，因此我复制此值并将其粘贴到其记录旁边）问题是我需要将此值减去仅复制前两位数字，但我的代码会复制此单元格中的任何内容“G2”并在列A中将其过去。你可以帮助我，因为我不是一个vba专家，我只是为这段代码搞定了。

    Set Sourcedate = WorkBk.Worksheets(1).Cells.Range("G2")
    Set Distdate = SummarySheet.Range("A" & NRow)
    Set Distdate = Distdate.Resize(SourceRange.Rows.Count - 1)

Answer 1

'Change Declaration of Sourcedate to String if it is in Range
Dim Sourcedate As String

Sourcedate = Left(WorkBk.Worksheets(1).Cells.Range("G2"), 2)

VBA代码从一个范围中减去前两位数

1 个答案: