Question

我正在尝试整理我给出的多张电子表格中的值。不幸的是，我感兴趣的字段永远不会在同一个位置，并且可以在我想要的值和相应的参考编号（将其标识为我想要的编号）之间包含任意数量的空白单元格。但它们总是在同一行。

例如，我需要找到与＆＃39; 1相关的所有值。人数＆＃39;。在工作表1＆＃1; 1。人数＆＃39;在单元格B2中，值在单元格B6中。在工作表2中，它们分别在C4和C7中。

我正在使用＆＃39;发现＆＃39;分配＆＃39; 1的位置。人数＆＃39;到一个范围，但在那之后卡住了。我想我需要激活那个单元格，然后偏移，直到我找到下一个非空白单元格并选择要复制的单元格，但无法解决如何执行此操作。

到目前为止我只有：

Dim rgFound As Range

Set rgFound = Range("A1:E6").Find("1.Number of people", lookat:=xlWhole)

你可以看到我没有走得太远！提前谢谢。

Answer 1

给这一点。

# Model1
window <- 144
train <- df[1:(13*window),]$power
tx <- t(sapply(1:13, function(x) train[((x-1)*window+1):(x*window)]))
ty <- tx[2:13,]
tx <- tx[-nrow(tx),]
tx <-  array(tx,dim=c(NROW(tx),NCOL(tx),1))
ty <-  array(trainY,dim=c(NROW(ty),NCOL(ty),1))
model <- trainr(X=tx,Y=ty,learningrate = 0.01, hidden_dim = 10, numepochs = 100)
test <- sapply(2:13, function(x) train[((x-1)*window+1):(x*window)])
pred  <- predictr(model,X=array(test,dim=c(NROW(test),NCOL(test),1)))

# Model2
window <- 144
train <- df[1:(13*window),]$power
tx <- sapply(1:12, function(x) train[((x-1)*window+1):(x*window)])
ty <- train[(12*window+1):(13*window)]
tx <-  array(tx,dim=c(NROW(tx),NCOL(tx),1))
ty <-  array(trainY,dim=c(NROW(ty),1,1))
model <- trainr(X=tx,Y=ty,learningrate = 0.01, hidden_dim = 10, numepochs = 100, seq_to_seq_unsync=TRUE)
test <- sapply(2:13, function(x) train[((x-1)*window+1):(x*window)])
pred  <- predictr(model,X=array(test,dim=c(NROW(test),NCOL(test),1)))

在每次都不同的工作表中查找特定数据字段

1 个答案: