日常任务自动化-将2个单元格从1个工作簿复制并粘贴到另一工作簿的最后一行

Question

因此，我收到一个每日数据excel工作簿，其中有两个数据单元，我需要将它们保存在一个文件夹中并将其保存为今天的日期-1。因此，例如，如果今天是8-24-18，我会收到8- 23-18数据。

然后，我需要打开另一个包含所有月度数据的文件。然后，我必须取消隐藏具有所有每月数据的文件中的单元格，然后将每日数据excel中的两个值粘贴到每月数据工作簿中，然后隐藏回行以将图形复制到电子邮件中。

我当前宏的问题是它是静态的，不会将数据粘贴到每月数据工作簿的最后一行。我可以通过更改范围单元格来使宏工作，但我想找到另一种方法。

我当前正在使用：

@extends('layout.home') @section('content')

<div class="mt-4">
  <div id="carouselExampleIndicators" class="carousel slide" data-ride="carousel">

    <div class="carousel-inner m-auto">

      @if(count($products)>0) @foreach($products as $product)
      <div class="carousel-item">
        <img class="d-block w-75" src="/storage/product_images/{{$product->product_image}}" alt="First slide">
      </div>
      @endforeach @else
      <div class="carousel-item active">
        <img class="d-block w-75" src="/storage/product_images/noimage.jpg" alt="">
      </div>
      @endif
      <a class="carousel-control-prev" href="#carouselExampleIndicators" role="button" data-slide="prev">
        <span class="carousel-control-prev-icon" aria-hidden="true"></span>
        <span class="sr-only">Previous</span>
      </a>
      <a class="carousel-control-next" href="#carouselExampleIndicators" role="button" data-slide="next">
        <span class="carousel-control-next-icon" aria-hidden="true"></span>
        <span class="sr-only">Next</span>
      </a>
    </div>
  </div>
  <h1>Profile</h1>
  <p class="text-justify"> Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure
    dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum. </p>

</div>

@endsection

将一个工作簿中的一个特定单元格复制并粘贴到另一工作簿中的另一个特定单元格。我的问题是如何复制一个特定的单元格，然后将代码粘贴到列中的下一个可用单元格或最后一个单元格，因为我必须每天更改范围才能正常工作。

带有图片的更新代码

Sub CopyCellToNewWorkBook1
Range ("A1"). Copy Workbooks ("Book1").Worksheet ("Sheet1").Range("D27")
End Sub  

Sub CopyCellToNewWorkBook2
Range ("A2"). Copy Workbooks ("Book1").Worksheet ("Sheet1").Range("F27")
End Sub  

---

数据：

Answer 1

好的，我希望这能涵盖所有基础。

首先，我们声明workbooks和worksheets。

第二，我们设置range，在其中寻找第一个空单元格，并设置将用该单元格填充的值

然后我们称subroutine，FillFirstEmptyCell。该子项包含我们要搜索的范围以及将填充所找到的第一个空cell的值。请注意，我们传递给此range的{​​{1}}已经设置了subroutine parent，并且已经设置了worksheet parent。在此函数的第一行中，我们调用workbook，一个函数。此功能仅包含我们要查找的范围。 在此函数内，我们FindFirstEmptycell遍历此iterating中的每个cell。如果找到一个值为空的range，则返回该cell的{​​{1}}，然后退出循环。如果我们找不到一个值为空的address，那么我们将返回一个cell，“”

如果值地址为空，则结束cell。如果不为空，则获取搜索范围的父级工作表，并将该工作表的范围（其地址等于函数empty string返回的地址）设置为变量值。

subroutine