小编Pro*_*ket的帖子

我无法输入整个空白行.我正试图改变A-AD列(Z列四列).

目前,单元格AO具有内容.细胞O-AD是空白的.但是我正在运行一个宏来将数据放在当前数据的右侧(列O).

我可以使用插入一行

dfind1.Offset(1).EntireRow.Insert shift:=xlDown

但它似乎只是从AO转移.我已经设法使用for循环向下移动O-AD

dfind1 as Range
For d = 1 To 15
    dfind1.Offset(2, (d + 14)).Insert shift:=xlDown
Next d

有没有办法降低30个细胞VS 15？同样,我想将15转移到右边的单元格.目前我有另一个for循环设置.

至于其余代码,请在下面.基本上合并两个excel表基于在A列中找到匹配.我已经标记了问题区域.其余代码大部分都有效.

Sub combiner()

    Dim c As Range, d As Long, cfind As Range, x, y, zed, dest As Range, cfind1 As Range, dfind As Range, _
    dfind1 As Range, crow, x_temp, y_temp

    On Error Resume Next
    Worksheets("sheet3").Cells.Clear
    With Worksheets("sheet1")
    .UsedRange.Copy Worksheets("sheet3").Range("a1")
    End With

    With Worksheets("sheet2")
    For Each c In Range(.Range("a3"), .Range("a3").End(xlDown))
    x = c.Value
    y = …

将多个对象推入数组时遇到很多麻烦。

我尝试了此代码的几种不同变体，最终要么将对象直接推送到数据库，要么只推送数组的最后一个对象

这是我目前正在尝试的代码，它有效，但只推送最后一个对象（在本例中为星期三）。

  collection.findOneAndUpdate(
  { name: 'yyy' }, 
  { $push: { schedule: monday, schedule: tuesday, schedule: wednesday}},
 function (error, success) {
       if (error) {
           console.log("error");
           console.log(error);
       } else {
           console.log("success");
           console.log(success);
       }
});

我试过了

collection.findOneAndUpdate(
  { name: 'yyy' }, 
  { $push: { schedule: monday, tuesday, wednesday}}

它只是将星期二和星期三推到主要位置，而不是将它们放入日程表数组中。

这是我用于计划的架构

  schedule: [
    {
        day: { type: String, default: ""},
        closed: { type: Boolean, default: false },
        start: { type: Number, default: 0},
        startap: { type: String, default: "AM"},
        end: { type: Number, …