仅在空白单元格中插入值

时间:2019-06-06 03:21:35

标签: excel vba

我有一列特定名称,并且该列中的一个单元格为空白,我想从一个选定的单元格中复制一个值并将其粘贴到该空白单元格中。

Worksheets("project Allocation").Range("B8").Copy

Worksheets("Project Allocation").Range("****").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

我已从B8单元格复制了值,并希望将(R13:R200)单元格范围内的值粘贴为空白。我无法定义粘贴范围。

1 个答案:

答案 0 :(得分:1)

这应该可以解决问题:

public void isMovieInFavorites(Movie movie) {
    final AppDatabase mDb = AppDatabase.getInstance(mContext);
    AppExecutors.getInstance().diskIO().execute(new Runnable() {
        @Override
        public void run() {
            int dbMovieID = mDb.movieDao().searchFavsByMovieID(movie.getId());
            Log.d(LOG_TAG, "result of " + dbMovieID + " " + movie.getTitle());
            if(dbMovieID !=0){
                isInFavsAlready = true;
                mContext.runOnUiThread(() -> {
                    holder.favButton.setChecked(true);
                }
            }else{
                isInFavsAlready= false;
                mContext.runOnUiThread(() -> {
                    holder.favButton.setChecked(false);
                }
            }

        }
    });
}

它将把Worksheets("project Allocation").Range("B8").Copy Worksheets("Project Allocation").Range("R13:R200").SpecialCells(xlCellTypeBlanks).PasteSpecial xlPasteValues Application.CutCopyMode = False 中的值粘贴到B8范围内的所有空白单元格中。在您的情况下,您只有一个空白单元格,因此将获得该值。